ggplot grouped geom_bar - добавление меток категорий факторов к метке оси X - PullRequest
Новая
       46

ggplot grouped geom_bar - добавление меток категорий факторов к метке оси X

4 голосов
/ 19 сентября 2019

У меня есть этот код R для создания вертикальной сгруппированной гистограммы: 

library(ggplot2)
exampledf <- data.frame(
  subchar = c("facebook", "twitter", "snapchat", "male", "female"),
  superchar = c("social media", "social media", "social media", "gender", "gender"),
  cweight = c(.2, .4, .4, .7, .3)
)

ggplot(exampledf, aes(x = superchar, y = cweight, fill = subchar)) +
  geom_bar(stat='identity', position = position_dodge()) +
  #scale_fill_manual(values = c(col.tint(color_in, .7), col.tint(color_in, .8), col.tint(color_in, .9), col.tint(color_in, 1))) +
  scale_fill_discrete()+
  coord_flip() +
  theme_minimal() +
  geom_text(aes(label = signif(cweight, digits=3)), position=position_dodge(width=0.9), hjust=.5, size=2.5)+
  theme(
    legend.position="none",
    axis.title.x=element_blank(),
    axis.title.y=element_blank(),
    axis.text.x=element_blank(),
    axis.ticks.y=element_blank(),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank()
  )

Однако я хотел бы добавить метки «subchar» сюда на графике (справа от «superchar»)ярлык, но слева от столбцов): Image of graph with location

Есть ли способ сделать это?

Ответы [ 2 ]

4 голосов
/ 19 сентября 2019

Используйте гранение для superchar и сделайте subchar эстетику по оси X: 

ggplot(exampledf, aes(x=subchar, y = cweight, fill = subchar)) +
  geom_col() +
  geom_text(aes(label = signif(cweight, digits=3)), 
            position=position_stack(vjust=0.5), 
            size=3, colour="white")+
  theme_void() +
  theme(
    axis.text.y=element_text(size=10),
    strip.placement="outside",
    strip.text.y=element_text(angle=180, hjust=1, face="bold", size=11,
                              margin=margin(r=10))
  ) +
  coord_flip() +
  facet_grid(superchar ~ ., scales="free_y", space="free_y", switch="y") +
  scale_y_continuous(expand=c(0,0)) +
  guides(fill=FALSE)

enter image description here

2 голосов
/ 19 сентября 2019

Хакерский метод, который требует от вас поворота меток, чтобы увидеть все это можно сделать с помощью geom_text.Я бы использовал это только в том случае, если вам уже требуется фасет какой-либо другой переменной. 

library(ggplot2)
exampledf <- data.frame(
  subchar = c("facebook", "twitter", "snapchat", "male", "female"),
  superchar = c("social media", "social media", "social media", "gender", "gender"),
  cweight = c(.2, .4, .4, .7, .3)
)

ggplot(exampledf, aes(x = superchar, y = cweight, fill = subchar)) +
  geom_bar(stat = "identity", position = position_dodge()) +
  coord_flip() +
  theme_minimal() +
  geom_text(
    aes(label = signif(cweight, digits = 3)),
    position = position_dodge(width = 0.9),
    hjust = .5, size = 2.5
  ) +
  geom_text(
    aes(label = subchar, y = 0),
    position = position_dodge(width = 0.9),
    vjust = 1.5, size = 2.5, angle = -90
  ) +
  theme(
    legend.position = "none",
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    axis.text.x = element_blank(),
    axis.ticks.y = element_blank(),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank()
  )

Создано в 2019-09-19 с помощью Представить пакет (v0.3.0)

...