ggplot2躲闪的哑铃情节

2024-05-06 • 问答

请考虑以下情节：

Domain = c("A","B","C","D","E","F","G","A","G") 

Area = c("State","State","National","National")

race = c("White","White","Black","Black") 

pct_agreement = c(0.557610213756561,0.735042750835419,0.567375898361206,0.633762538433075,0.64091557264328,0.750356614589691,0.564539015293121,0.651861846446991,0.697574973106384,0.653521358966827,0.713940441608429,0.680985689163208,0.751584351062775,0.642535984516144,0.488484561443329,0.581625580787659,0.456939995288849,0.580652594566345,0.630399644374847,0.711643815040588,0.347775995731354,0.627996683120728,0.668737232685089,0.610245823860168,0.690373718738556,0.705771028995514,0.738830924034119,0.550933301448822)

df <- data.frame(Domain,Area,race,pct_agreement)

library(tidyverse)

ggplot(df) +
  geom_point(
    aes(
      x = Domain,y = pct_agreement,color = Area,shape = race,group = Area
    ),position = position_dodge(width = 1)
  ) +
  coord_flip()

ggplot2躲闪的哑铃情节

现在，我们想通过连接相同域和面积的每对点将其转换为哑铃图。显而易见的代码如下：

df2 <- pivot_wider(df,names_from = race,values_from = pct_agreement)

ggplot(df) +
  geom_point(
    aes(
      x = Domain,position = position_dodge(width = 1)
  ) +
  geom_segment(
    data = df2,aes(
      x = Domain,xend = Domain,y = White,yend = Black,color = Area
    ),position = position_dodge(width = 1)
  ) +
  coord_flip()

ggplot2躲闪的哑铃情节

^{由reprex package（v0.3.0）于2019-11-08创建}

显然，那是行不通的，因为position_dodge()并没有躲过xend的审美观。我认为这可能是应该修复的ggplot2中的错误。但是，与此同时，制作此图的最简单方法是什么？我可以想到各种方法来做，但是它们似乎都很麻烦。我想念什么吗？

我发现嵌套分组通常会导致特定地块的困难。在这些情况下，我发现interaction()函数非常有用，因为它可以简化代码并避免数据重新格式化。我们可以为线段定义新的分组。

重要的是，以下解决方案适用于位置躲避，因为它使用geom_line()而不是geom_segment()。这样可以避免xend无法处理的position_dodge()美学。

ggplot(df) +
  geom_point(
    aes(
      x = Domain,y = pct_agreement,color = Area,shape = race,group = Area
    ),position = position_dodge(width = 0.5)
  ) +
  geom_line(
    aes(
      x = Domain,group = interaction(Area,Domain)
    ),position = position_dodge(width = 0.5)
  ) +
  coord_flip()

我要定义自己的x值而不是闪避：

df <- data.frame(Domain,Area,race,pct_agreement) %>%
  mutate(myX = as.numeric(Domain) + ifelse(Area == "State",0.25,-0.25))

df2 <- pivot_wider(df,names_from = race,values_from = pct_agreement)

ggplot(df) +
  geom_point(
    aes(
      x = myX,group = Area
    )) +
  geom_segment(
    data = df2,aes(
      x = myX,xend = myX,y = White,yend = Black,color = Area
    )) +
  # fix the labels
  scale_x_continuous(name = "Domain",breaks = 1:7,labels = LETTERS[1:7]) +
  coord_flip()

也可以将两种方法混合使用，并闪避点，但将计算出的x值用于线段：

ggplot(df) +
  geom_point(
    aes(
      x = Domain,position = position_dodge(width = 1)
  ) +
  geom_segment(
    data = df2,color = Area
    )) +
  coord_flip()

^{由reprex package（v0.3.0）于2019-11-08创建}

使用哑铃（0.11 版）一种稍微不同的方法，可能对某些人有用（或可能没有用）

感谢您提出这个具有挑战性的问题。

##Reformat data
w<-df %>% filter(race=='White')
b<-df %>% filter(race=='Black')
e<-merge(w,b,by.x=c("Domain","Area"),by.y = c("Domain","Area")) %>% unite("id",Domain,remove = FALSE)
e$pct_agreement.x<-as.numeric(format(e$pct_agreement.x,digit=3))
e$pct_agreement.y<-as.numeric(format(e$pct_agreement.y,digit=3))

##Plot
dumbbell::dumbbell(e,id="id",key="Area",column1="pct_agreement.x",column2 = "pct_agreement.y",shp="Area",pointsize = 2,pt_val = 1,delt=1,textsize=3,lab1 = "White",lab2="Black") + xlim(.34,.76)

ggplot2躲闪的哑铃情节

zdh064105 回答：ggplot2躲闪的哑铃情节

大家都在问