不同来源的RGgplot分组图例

whhtz7ly 于 2022-12-25 发布在其他

关注(0)|答案(1)|浏览(151)

我正在寻找一个对图例进行分组的解决方案。现在看来，第一个填充参数接管了图例的标签。
寻找：解决方案，以在图例中显示两个分开的数据集。
问题：图例和数据混淆，对应的数据不一致。
注：所示数据来自两个不同来源：
1.相对于收入群体的平均值
1.收入群体自身的价值观
抱歉：标签不是英文，因为我的数据集是德文的。（希望它不是英文）

spine_gender = 
  ggplot()+
  geom_bar(stat="identity", 
            aes(
              x=Altersgruppe,
              y=mean_shopping_time_after_age_country_gender,
              group=Nationalitaet,
              fill=Geschlecht
              ),
            df_spine,
            position = "dodge")+
             
  geom_point (stat="identity", 
              aes(
                x=Altersgruppe,
                y=mean_time_money,
                group=Nationalitaet,
                fill=Einkommensgruppe
                ),
              df_spine,
              position = "dodge",
              shape=21,
              size=4,
              stroke=NA,)+
  xlab("Nationalitaet")+
  ylab("MW Zeitaufwand")+
  facet_grid(Nationalitaet~.)+
  theme_light()+
  coord_flip()

- 样品**

阿尔特斯集团国家;总司令部，总参谋部分析人员;持续时间和持续时间为每分钟一次;在州一级的行政区划;颜色;颜色_收入;平均时间金钱年龄国家性别20 - 35岁后平均购物时间;尼德里格;第一百一十六条;粉红色;红色; -17.3076923076923; -10.51128072210120至35之间;尼德里格;七百二十六;负十八;三百一十八;粉红色;红色; -16.9811320754717; -10.5971533104517中的20至35分; A; W;尼德里格; 893; -16 ;265;粉红色;红色; -18.1132075471698; -10.8699314067247二十至三十五岁;尼德里格; 789; 6; 187;浅蓝色;红色; 5.307686726238720 - 35份; CH; M;尼氏; 973; 5; 198;浅蓝色;红色; 7.575757575758; 4.50583820758843分子量为20 - 35; A; M;尼德里格; 752; 5; 169;浅蓝色;红色; 5.5075341669634536~50份;尼德里格;九百九十元;粉红色;红色; -15.625; -10.11308993409436至50;尼德里格;七百一十七;负十七;三百七十;粉红色;红色; -13.7837837837838; -8.4733742511392536至50; A; W;尼德里格;一百零一○;负十九;三百九十五;粉红色;红色; -14.4303797468354; -9.10900477295668三十六至五十元;尼德里格; 688; 7; 250;浅蓝色;红色; 8.4; 5.13441893160424 36 - 50; CH; M;尼氏; 966; 7; 251;浅蓝色;红色; 4.7084872144390636~50个碳原子; A; M;尼德里格; 824; 7; 263;浅蓝色;红色; 7.98479087452472; 4.8099078867202151 - 65号染色体;尼德里格;六百九十三;负十四;一百九十七;粉红色;红色; -21.3197969543147; -12.564806686857五一至六十五;尼德里格; 912; -13 ;203;粉红色;红色; -19.2118226600985; -11.1161409755095 51至65; A; W;尼德里格;一百八十;粉红色;红色; -21.666666666666667; -12.7679639318909美元51至65美分;尼德里格; 292; 5; 117;浅蓝色;红色; 6.67043008029075中的51 - 65个; CH; M;尼氏; 608; 5; 126;浅蓝色;红色; 5.5171100360604751 - 65个单位; A; M;尼德里格; 720; 5; 112;浅蓝色;红色; 13.3928571428571; 6.4430177120351320 - 35个单位;德威;米特尔; 903; -13 ;460;粉红色;灰色; -8.47826086956522; -10.51128072210120至35之间;瑞士;瑞士;六五四;粉红色;灰色; -8.60420650095602; -10.5971533104517中的20至35分; A; W;米特尔; 870; -13 ;439;粉红色;灰色; -8.88382687927107; -10.8699314067247二十至三十五岁; D; M;米特尔; 894; 5; 347;浅蓝色;灰色; 4.32276657060519; 5.307686726238720 - 35份; CH; M;中; 921; 4; 304;浅蓝色;灰色; 3.94736842105263; 4.50583820758843分子量为20 - 35; A; M;米特尔; 679; 5; 297;浅蓝色;灰色; 5.050505050505; 5.5075341669634536~50份;德威;米特尔; 901; -16 ;539;粉红色;灰色; -8.90538033395176; -10.11308993409436至50;瑞士;瑞士;七百九十五;负十四五百五十九;粉红色;灰色; -7.5134168157424; -8.4733742511392536至50; A; W;米特尔; 954; -14 ;532;粉红色;灰色; -7.89473684210526; -9.10900477295668三十六至五十元;德、美、米特尔公司637; 5; 372;浅蓝色;灰色; 4.03225806451613; 5.1344189316042436 - 50个单位; CH; M;中; 1119; 5; 450;浅蓝色;灰色; 3.333333333333; 4.7084872144390636~50个碳原子; A; M;米特尔; 774; 5; 387;浅蓝色;灰色; 4.8099078867202151 - 65号染色体;德威;米特尔; 823; -12 ;419;粉红色;灰色; -8.59188544152745; -12.564806686857五一至六十五;瑞士;瑞士;一百零三○;粉红色;灰色; -8.06845965770171; -11.1161409755095 51至65; A; W;米特尔; 713; -12 ;410;粉红色;灰色; -8.78048780487805; -12.7679639318909美元51至65美分; D; M;米特尔; 377; 4; 293;浅蓝色;灰色; 6.67043008029075中的51 - 65个; CH; M;中; 633; 3; 294;浅蓝色;灰色; 3.06122448979592; 5.5171100360604751 - 65个单位; A; M;米特尔; 658; 3; 243;浅蓝色;灰色; 3.7037037037; 6.4430177120351320 - 35个单位; D; W;霍赫; 910; -11 ;621;粉红色;绿色; -5.31400966183575; -10.51128072210120至35之间; CH; W;霍赫; 596; -11 ;659;粉红色;绿色; -5.00758725341426; -10.5971533104517中的20至35分; A; W;霍赫; 832; -11; 638;粉红色;绿色; -5.17241379310345; -10.8699314067247二十至三十五岁; D; M;霍克; 836; 4; 525;浅蓝色;绿色; 2.28571428571429; 5.307686726238720 - 35份; CH; M;霍赫; 962; 3; 465;浅蓝色;绿色; 1.93548387096774; 4.50583820758843分子量为20 - 35; A; M;霍赫; 739; 4; 480;浅蓝色;绿色; 2.5; 5.5075341669634536 - 50; D; W;霍赫; 978; -15 ;797;粉红色;绿色; -5.64617314930991; -10.11308993409436至50; CH; W;霍赫; 929; -15 ;866;粉红色;绿色; -8.4733742511392536至50; A; W;霍赫; 1107年; -15 ;849;粉红色;绿色; -5.30035335689046; -9.10900477295668三十六至五十元; D; M;霍克; 697; 5; 514;浅蓝色;绿色; 2.91828793774319; 5.1344189316042436 - 50个单位; CH; M;霍赫; 1036 5; 539;浅蓝色;绿色; 2.78293135435993; 4.7084872144390636~50个碳原子; A; M;霍赫; 848; 5; 582;浅蓝色;绿色; 2.57731958762887; 4.8099078867202151 - 65号染色体; D; W;霍克; 654; -10 ;362;粉红色;绿色; -8.28729281767956 -12.564806686857五一至六十五; CH; W;霍赫; 961; -9 ;403;粉红色;绿色; -6.69975186104218; -11.1161409755095 51至65; A; W;霍赫; 720; -11 ;397;粉红色;绿色; -8.31234256926952; -12.7679639318909美元51至65美分; D; M;霍赫; 252; 3; 265;浅蓝色;绿色; 6.67043008029075中的51 - 65个; CH; M;霍赫; 670; 2; 294;浅蓝色;绿色; 2.04081632653061; 5.5171100360604751 - 65个单位; A; M;霍赫; 763; 2; 267;浅蓝色;绿色; 6.44301771203513

r

来源：https://stackoverflow.com/questions/74875681/r-ggplot-grouped-legend-of-different-origin

1条答案

按热度按时间

ryoqjall1#

尝试使用ggnewscale包：

# install.packages("ggplot2")
# install.packages("data.table")
# install.packages("ggnewscale")

library(ggplot2)
library(data.table)
library(ggnewscale)

# data sample
my_data <-
  data.table(
    col_x = rep(letters[1:4], 5),
    col_y1 = rnorm(20, 3, 1),
    col_y2 = rnorm(20, 4, 1.5),
    col_grup = rep(LETTERS[1:2], 10),
    col_fill1 = rep(letters[3:6], 10),
    colfill2 = rep(letters[7:10], 10)
  )

ggplot(data = my_data) +
  geom_bar(
    stat = "identity",
    aes(
      x = col_x,
      y = col_y2,
      group = col_grup,
      fill = col_fill1
    ),
    position = "dodge"
  ) +
  scale_fill_manual("col_fill1 NAME", values = colorRampPalette(c("red", "green"))(4)) +
  new_scale_fill() + # Define scales before initiating a new one
  geom_point (
    stat = "identity",
    aes(
      x = col_x,
      y = col_y2,
      group = col_grup,
      fill = colfill2
    ),
    position = "dodge",
    shape = 21,
    size = 4,
    stroke = NA
  ) +
  scale_fill_manual("colfill2 NAME", values = colorRampPalette(c("blue", "yellow"))(4)) +
  xlab("col_x") +
  ylab("MW Zeitaufwand") +
  facet_grid(col_grup ~ .) +
  labs(shape = "Split legend") +
  theme_light() +
  coord_flip()

赞(0）回复(0）举报 2022-12-25

我来回答

不同来源的RGgplot分组图例

1条答案

相关问题

热门标签

最新问答