英文:
Add additional group in legend in ggplot2
问题
我正在尝试创建一个回归图，显示两个子组的回归线，以及整个数据框。
在这个过程中，我遇到了一个问题，即是否可以将一个在数据框中不存在的组添加到图例中（我的变量只有两个不同的组，但我想在图例中写入三个内容）。
对我来说，特别是为了添加一个合并了两个组的回归的图例。但我也在一般情况下进行思考。
以下是一些示例代码。
每一点帮助都非常感激！
#加载包library(MASS)library(ggplot2)library(dplyr)#设置种子set.seed(1234)#创建随机数据框sigma1 <- rbind(c(1, 0.8), c(0.8, 1))mu <- c(4.5, 3.2)dta1 <- as.data.frame(mvrnorm(n = 1000, mu = mu, Sigma = sigma1)) %>%mutate(group = as.factor(sample(c(1), 1000, replace = TRUE)))sigma2 <- rbind(c(1, -0.5), c(-0.5, 1))dta2 <- as.data.frame(mvrnorm(n = 1000, mu = mu, Sigma = sigma2)) %>%mutate(group = as.factor(sample(c(2), 1000, replace = TRUE)))dta <- rbind(dta1, dta2)#创建图形ggplot(dta, aes(x = V1, y = V2)) +geom_point(aes(color = group)) +geom_smooth(method = "lm", se = FALSE) +geom_smooth(method = "lm", se = FALSE, aes(color = group)) +scale_color_manual(name = "图例", values = c("green", "orange"), labels = c("A", "B"))
希望对你有所帮助！
英文:
I was trying to create a regression plot that shows the regression line for two subgroups and also the entire dataframe.
While doing that i stumbled across the question if it was possible to add a group to the that doesn't exist in the dataframe to the legend (my variable only has two distinct groups, but I want to write three things in the legend).
For me specifically to add a legend for the regression with both groups combined. But I was also wondering in general.
Below you find some sample code.
Every help is much appreciated!
#Load packageslibrary(MASS)library(ggplot2)library(dplyr)#Set a seedset.seed(1234)#Create random dataframesigma1 <- rbind(c(1, 0.8), c(0.8, 1))mu <- c(4.5, 3.2)dta1 <- as.data.frame(mvrnorm(n = 1000, mu = mu, Sigma = sigma1)) |>mutate(group = as.factor(sample(c(1), 1000, replace = TRUE)))sigma2 <- rbind(c(1, -0.5), c(-0.5, 1))dta2 <- as.data.frame(mvrnorm(n = 1000, mu = mu, Sigma = sigma2)) |>mutate(group = as.factor(sample(c(2), 1000, replace = TRUE)))dta <- rbind(dta1, dta2)#Create the graphicggplot(dta, aes(x = V1, y = V2)) +geom_point(aes(color = group)) +geom_smooth(method = "lm", se = FALSE) +geom_smooth(method = "lm", se = FALSE, aes(color = group)) +scale_color_manual(name = "Legend", values = c("green", "orange"), labels = c("A", "B"))
答案1
得分: 2
尝试这个：
dta$group <- factor(dta$group, levels = c('1', '2', '3'))ggplot(dta, aes(x = V1, y = V2)) +geom_point(aes(color = group)) +geom_smooth(method = "lm", se = FALSE) +geom_smooth(method = "lm", se = FALSE, aes(color = group)) +scale_color_manual(name = "Legend",values = c("green", "orange", "blue"),labels = c("A", "B", "Overall"),drop = FALSE)
策略是创建一个未使用的“虚拟”因子水平，然后手动标记它为你想要的方式。请注意，在比例尺中需要包含 drop = FALSE，否则未使用的因子水平将被省略。
英文:
Try this:
dta$group <- factor(dta$group,levels = c('1','2','3'))ggplot(dta, aes(x = V1, y = V2)) +geom_point(aes(color = group)) +geom_smooth(method = "lm", se = FALSE) +geom_smooth(method = "lm", se = FALSE, aes(color = group)) +scale_color_manual(name = "Legend",values = c("green", "orange","blue"),labels = c("A", "B","Overall"),drop = FALSE)
The strategy is to create a "dummy" unused factor level, and then manually label it the way you want. Note the need to include drop = FALSE in the scale, otherwise the unused factor level will be omitted.
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论