我可以成功地將顏色分配給一個因素（性別）級別。但我無法弄清楚如何將形狀也分配給其他因素（age_cat）級別并在所需位置添加第二個圖例。我嘗試在不同的位置添加“shape=age_cat”......但無論我嘗試什么，都會扭曲情節！
我的示例資料、代碼和繪圖如下。
df = data.frame(sex = c(1,1,1,1,1, 2,2,2,2,2),
age_cat = c(1,1,1, 2,2,2, 1,1,1, 2),
score_type = c(1,2, 1,2, 1,2, 1,2, 1,2),
score = c(25,28,18,20,30, 37,40,35,43,45))
df$sex <- factor((df$sex))
df$age_cat <- factor((df$age_cat))
df$score_type <- factor((df$score_type))
windows(width=7, height=7 )
df %>%
ggplot( aes(x=score_type, y=score))
geom_boxplot(aes(color=sex),outlier.shape = NA, size=1.5, show.legend = F)
geom_point(aes(color=sex), position=position_jitterdodge(dodge.width=0.9), size=3)
scale_color_manual(values=c("#0072B2", "#CC79A7"), name="", labels=c("Male", "Female"))
scale_shape_manual(name="", labels=c('Younger', 'Older'), values=c(1, 17)) # ??? How to assign shape ???
theme_bw()
theme(panel.border = element_blank(), axis.ticks = element_blank(),
legend.position=c(0.9, 0.65), legend.text=element_text(size=11), legend.title=element_text(size=11.5),
panel.grid.major.x = element_blank() ,
plot.title = element_text(size=11, face = "bold"), axis.title=element_text(size=13),
axis.text.y = element_text(size=11),
axis.text.x = element_text(size=11),
plot.margin = unit(c(0.5,0.2,0,0.2), "cm"))
labs(title= "", x = "",y = "Score")
scale_y_continuous(breaks=c(0, 20, 40, 60, 80, 100), labels=c('0', '20', '40', '60', '80', '100'))
expand_limits(x=5, y=70)
scale_x_discrete(labels = c("A", "B"))
coord_cartesian(clip = "off")
uj5u.com熱心網友回復：
shape = age_cat您只需要group = sex在geom_point.
library(purrr)
library(ggplot2)
df %>%
ggplot( aes(x=score_type, y=score))
geom_boxplot(aes(color=sex),outlier.shape = NA, size=1.5, show.legend = F)
geom_point(aes(color=sex, shape = age_cat, group = sex),
position=position_jitterdodge(dodge.width=0.9), size=3)
scale_color_manual(values=c("#0072B2", "#CC79A7"), name="",
labels=c("Male", "Female"))
scale_shape_manual(name="", labels=c('Younger', 'Older'),
values=c(1, 17))
theme_bw()
theme(panel.border = element_blank(), axis.ticks = element_blank(),
legend.position=c(0.9, 0.65), legend.text=element_text(size=11),
legend.title=element_text(size=11.5),
panel.grid.major.x = element_blank() ,
plot.title = element_text(size=11, face = "bold"),
axis.title=element_text(size=13),
axis.text.y = element_text(size=11),
axis.text.x = element_text(size=11),
plot.margin = unit(c(0.5,0.2,0,0.2), "cm"))
labs(title= "", x = "",y = "Score")
scale_y_continuous(breaks=c(0, 20, 40, 60, 80, 100),
labels=c('0', '20', '40', '60', '80', '100'))
expand_limits(x=5, y=70)
scale_x_discrete(labels = c("A", "B"))
coord_cartesian(clip = "off")
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/416810.html
標籤：