R中不同构面子组的不同颜色

Question

我有以下R代码来生成一个由队列和zygosity面对的双胞胎高度图：

heights_plot = twinData %>% 
ggplot(mapping = aes(ht1, ht2)) + geom_point() + facet_grid(cohort ~ zygosity) 
+ ggtitle("Cohort and Zygosity Facet Plot by Similarity")
heights_plot

如果我想让左上角和右下角的子组为红色并保留其他子组，我该怎么做？

Answer 1

我可能会在数据集中添加一个标记，然后在color = flag中执行geom_point

twinData$flag <- ifelse((twinData$cohort == 'younger' & twinData$zygosity == 'DZOS') |
(twinData$cohort == 'older' & twinData$zygosity == 'MZFF'), 1, 0) %>%
    as.factor()

twinData %>% ggplot(mapping = aes(ht1, ht2)) + 
geom_point(aes(colour = flag, fill = flag)) +
scale_fill_manual(values = c("black", "red")) + 
scale_colour_manual(values = c("black", "red")) + 
facet_grid(cohort ~ zygosity) +
ggtitle("Cohort and Zygosity Facet Plot by Similarity")

您可能需要翻转红色和黑色，但您应该能够使用此代码。