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

Question

我有以下 R 代码来生成一个双胞胎身高图，按群组和接合度分面：

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

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

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")

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