我有 2 個ggplots由以下代碼生成
library(dplyr)
library(ggplot2)
library(ggdist)
set.seed(1)
DF1 = rbind(data.frame('Label' = 'A', val = rnorm(200, 5)), data.frame('Label' = 'B', val = rnorm(500, 10)))
DF2 = rbind(data.frame('Label' = 'A', val = rt(200, 2)), data.frame('Label' = 'B', val = rt(700, 3)))
Plot1 = ggplot(DF1, aes(x = Label, y = val, fill = 'red')) stat_dotsinterval(position = 'dodge')
Plot2 = ggplot(DF2, aes(x = Label, y = val, fill = 'green')) stat_dotsinterval(position = 'dodge')
Plot1
Plot2
這些是單獨的情節，但是我想將它們合并為一個ggplot具有適當圖例的情節。
對于上述情況，有什么辦法可以做到這一點嗎？
任何指標都將受到高度贊賞。
uj5u.com熱心網友回復：
類似于eipi10的評論：
library(dplyr); library(ggplot2)
bind_rows(DF1, DF2, .id = "src") %>%
mutate(name = if_else(src == "1", "red", "green")) %>%
ggplot(aes(x=Label, y=val, colour=name, fill=name))
stat_dotsinterval()
scale_color_identity(aesthetics = c("fill", "color"), guide = "legend")
theme(legend.position = "top")
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/325053.html
上一篇：如何區分作業目錄和暫存區？