метки данных при использовании наложения geom_jitter на блок-диаграмму - PullRequest
Новая
       89

метки данных при использовании наложения geom_jitter на блок-диаграмму

2 голосов
/ 11 июля 2019

Я накладываю точки данных на коробочную диаграмму. Проблема, с которой я сталкиваюсь, заключается в том, что при попытке пометить точки данных метки не отображаются над точкой данных. Любая помощь здесь приветствуется. Спасибо 

df <- data.frame(sno= c(1:10), A =sample(1:1000, 10), B=sample(1:100, 10), C=sample(1:300, 10))
df <- melt(df, id.vars = "sno")

library(ggplot2)
ggplot(df, aes(x="", y=value, label=sno)) + 
    facet_wrap(~variable, scales = "free") +
    geom_boxplot()+
    geom_jitter(position=position_jitter(0.2), col="blue") +
    geom_text(aes(label=sno))

1 Ответ

2 голосов
/ 11 июля 2019

Вы можете использовать jitter из base, чтобы создать свой собственный набор данных, а затем использовать его в geom_point. Используя этот подход, вы можете назначить x для geom_label, чтобы точки и метки были выровнены. 

df <- data.frame(sno= c(1:10), A =sample(1:1000, 10), 
                               B=sample(1:100, 10), C=sample(1:300, 10))
df <- reshape2::melt(df, id.vars = "sno")

dfj <- df
dfj$xj <- jitter(as.numeric(factor(df$variable)))

library(ggplot2)

ggplot(df, aes(x=as.numeric(variable), y=value, group=NULL)) + 
  facet_wrap(~variable, scales = "free") +
  geom_boxplot()+
  geom_point(data = dfj, aes(x=xj), col="blue") +
  geom_text(data = dfj, aes(x=xj,label=sno, hjust=2)) + 
  scale_x_continuous(breaks = as.numeric(df$variable))+
  theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())
#> Warning: Continuous x aesthetic -- did you forget aes(group=...)?

...