R ggplot2:仅在图例中使用颜色(绘图无符号)
这是我要创建的绘图: 但是,我不希望在图例周围有一个框架,也不希望在彩色方块中有圆圈。我发现了一个类似的问题,但我不知道如何使用它来解决我的问题,因为它基本上仍然使用那个情节的符号。我想知道为什么ggplot2,一个我非常喜欢的软件包,却有这个愚蠢的特性 目标图例是: 用于复制绘图的代码:R ggplot2:仅在图例中使用颜色(绘图无符号),r,plot,ggplot2,R,Plot,Ggplot2,这是我要创建的绘图: 但是,我不希望在图例周围有一个框架,也不希望在彩色方块中有圆圈。我发现了一个类似的问题,但我不知道如何使用它来解决我的问题,因为它基本上仍然使用那个情节的符号。我想知道为什么ggplot2,一个我非常喜欢的软件包,却有这个愚蠢的特性 目标图例是: 用于复制绘图的代码: library(ggplot2) library(plyr) N <- 25 IV1 <- c('level1', 'level1', 'level1', 'level1', 'leve
library(ggplot2)
library(plyr)
N <- 25
IV1 <- c('level1', 'level1', 'level1', 'level1', 'level1', 'level1', 'level1', 'level1', 'level2', 'level2', 'level2', 'level2', 'level2', 'level2', 'level2', 'level2')
IV2 <- c('level1', 'level1', 'level1', 'level1', 'level2', 'level2', 'level2', 'level2', 'level1', 'level1', 'level1', 'level1', 'level2', 'level2', 'level2', 'level2')
IV3 <- c('level1', 'level1', 'level2', 'level2', 'level1', 'level1', 'level2', 'level2', 'level1', 'level1', 'level2', 'level2', 'level1', 'level1', 'level2', 'level2')
IV4 <- c('level1', 'level2', 'level1', 'level2', 'level1', 'level2', 'level1', 'level2', 'level1', 'level2', 'level1', 'level2', 'level1', 'level2', 'level1', 'level2')
exampleData <- data.frame(subNum = rep(1:N, each = 16),
DV = rnorm(N*length(IV1)),
IV1 = factor(rep(IV1, N), levels = c('level1', 'level2')),
IV2 = factor(rep(IV2, N), levels = c('level1', 'level2')),
IV3 = factor(rep(IV3, N), levels = c('level1', 'level2')),
IV4 = factor(rep(IV4, N), levels = c('level1', 'level2')))
exampleDataSummary <- ddply(exampleData,
c('IV1', 'IV2', 'IV3', 'IV4'),
summarise,
meanDV = mean(DV),
N = length(DV),
sdDV = sd(DV),
seDV = sdDV/sqrt(N))
plot <- ggplot(exampleData, aes(y = DV, x = IV1, fill = IV2))
plot + facet_grid(IV3 ~ IV4) +
geom_dotplot(binaxis = "y", alpha = 0.7, stackdir = "center", position = position_dodge(width = 1)) +
geom_violin(aes(y = DV, fill = IV2), alpha = 0.5, position = position_dodge(width = 1)) +
geom_point(aes(y = meanDV, x = IV1), data = exampleDataSummary, position = position_dodge(width = 1)) +
geom_errorbar(aes(y = meanDV, ymin = meanDV - seDV, ymax = meanDV + seDV),
color = "black", width = 0.2, data = exampleDataSummary, position = position_dodge(width = 1))
库(ggplot2)
图书馆(plyr)
N关闭相应几何图形中不需要的图例元素,然后使用覆盖.aes
:
plot + facet_grid(IV3 ~ IV4) +
geom_dotplot(binaxis = "y", alpha = 0.7, stackdir = "center",
position = position_dodge(width = 1), show.legend = FALSE) +
geom_violin(aes(y = DV, fill = IV2), alpha = 0.5, position = position_dodge(width = 1)) +
geom_point(aes(y = meanDV, x = IV1), data = exampleDataSummary,
position = position_dodge(width = 1), show.legend = FALSE) +
geom_errorbar(aes(y = meanDV, ymin = meanDV - seDV, ymax = meanDV + seDV),
color = "black", width = 0.2, data = exampleDataSummary, position = position_dodge(width = 1)) +
guides(fill = guide_legend(override.aes = list(color = NA, alpha = 1)))