突出显示分组箱图上的点 [英] Highlight points on grouped box plot

问题描述

这是一个不同的问题，但接下来是:

再次获得帮助将不胜感激.

解决方案

您可能已经很接近了:您需要在 geom_point()调用中使用 position_dodge .为了确保这些点与箱线图的位置正确对齐，还应该为箱线图几何图形明确定义 position_dodge 的 width .我还在这里为 geom_point()添加了 show.legend = FALSE ，因为您可能不希望像示例中那样在图例上出现蓝点:

 数据集％>％group_by(字词)％>％filter(any(TRUE.))％&％;％ggplot(aes(x =项，y =结果，填充=性别))+scale_fill_brewer(调色板=蓝调")+geom_boxplot(position = position_dodge(0.8))+geom_point(#添加高亮点data = subset(dataset，TRUE.== TRUE)，aes(x = Term，y = Result)，position = position_dodge(0.8)，color ="blue"，size = 4，show.legend = FALSE)+ggtitle(按术语分配结果")+xlab(术语")+ ylab(结果")) 

This is a different question but follows on from this: R boxplot Subset column based on value in another column

UPDATED

my dataset looks like this:

Term	Name	True	Result	Gender
T1	Name1	True	4	F
T2	Name2	False	6	F
T3	Name3	True	5.5	M
T3	Name4	False	4.6	M

The test dataset:

dataset_test <- structure(list(Term = c("T1", "T1", "T1", "T1", "T1", "T1", "T2", 
"T2", "T2", "T2", "T2", "T2", "T2", "T3", "T3", "T3", "T3", "T3", 
"T3", "T3"), Name = c("Name1", "Name2", "Name3", "Name4", "Name5", 
"Name6", "Name5", "Name6", "Name7", "Name8", "Name9", "Name10", 
"Name11", "Name12", "Name13", "Name14", "Name15", "Name16", "Name17", 
"Name18"), TRUE. = c(TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, 
TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
FALSE, TRUE, TRUE), Result = c(4, 5, 6, 4, 5, 6, 5.5, 4.6, 5.5, 
4.6, 5, 5.2, 6, 5.5, 4, 5.5, 4.8, 5, 5, 4.4), Gender = c("F", 
"F", "F", "M", "M", "M", "F", "F", "F", "F", "M", "M", "M", "F", 
"F", "F", "F", "M", "M", "M")), class = "data.frame", row.names = c(NA, 
-20L))

I have a grouped box plot by gender below. I want to be able to highlight the points in the right gender boxplot, i.e. the points need to align with the gender of the True record.

Solution credited to chemdork123

dataset_test %>% 
  group_by(Term) %>% 
  filter(any(TRUE.)) %>%
  ggplot(aes(x = Term, y = Result, fill = Gender)) + 
  scale_fill_brewer(palette = "Blues") +
  geom_boxplot(position=position_dodge(0.8))+
  geom_point(                               # add the highlight points
    data=subset(dataset_test, TRUE. == TRUE), 
    aes(x=Term, y=Result), position=position_dodge(0.8),
    color="blue", size=4, show.legend = FALSE) +
  ggtitle("Distribution of results by term") +
  xlab("Term ") + ylab("Result)")

Position dodge now works perfectly if there are true records for both genders. But breaks if there are only one. However, this is the main use case for this visualisation.

The code above produces this:

Again any help would be greatly appreciated.

解决方案

You were probably close : you need to use position_dodge on the geom_point() call. In order to be sure that the points align correctly with the position of the boxplots, you also should explicitly define the width of position_dodge for the boxplot geom too. I also include show.legend=FALSE for geom_point() here, since you likely don't want the blue dots on the legend like you had in your example:

dataset %>% 
  group_by(Term) %>% 
  filter(any(TRUE.)) %>%
  ggplot(aes(x = Term, y = Result, fill = Gender)) + 
  scale_fill_brewer(palette = "Blues") +
  geom_boxplot(position=position_dodge(0.8))+
  geom_point(                               # add the highlight points
    data=subset(dataset, TRUE. == TRUE), 
    aes(x=Term, y=Result), position=position_dodge(0.8),
    color="blue", size=4, show.legend = FALSE) +
  ggtitle("Distribution of results by term") +
  xlab("Term ") + ylab("Result)")

这篇关于突出显示分组箱图上的点的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！