значения geom_col вышли из строя - PullRequest
Новая
       44

значения geom_col вышли из строя

0 голосов
/ 11 декабря 2018

Я новичок в R. У меня проблемы с упорядочением элементов geom_text на приведенном ниже графике geom_col.

Я полагаю, что это как-то связано со строкой position = position_dodge2(preserve = "single"), но я не уверен.

Пример кода и прилагаемые выводы.Как видите, метки неверны - e и b должны быть переключены, а также a и d.

Может кто-то с более острыми глазами (и, вероятно, более острым умом)видите, в чем проблема?

enter image description here

library(ggplot2)
library(stringr)

data <- data.frame(Importance = c("Not important", "Important", "Critical", "Not important", "Important"), Current.Capability = c("Basic", "Undeveloped", "Advanced", "World class", "World class"), Function = c("PM", "Sales", "PM", "Marketing", "Marketing"), Item = c("a","b", "c", "d", "e"))

str(data)
head(data)

width <- 2
position.width <- width - 0.05

ggplot(data, aes(x = Importance, y = Current.Capability, fill=Function)) +
  geom_col(position = position_dodge2(preserve = "single"), width = width) +
  facet_grid(~Importance, scales = "free_x", space = "free_x") +
  geom_text(
    aes(
    label = stringr::str_wrap(Item, 50)), 
    lineheight = 0.7, 
    angle=90, 
    size = 5, 
    hjust=0, 
    vjust=0.5,
    y = 0.5,
    position = position_dodge2(preserve = "single", width = position.width)) +
  theme(axis.text.x = element_blank(), axis.ticks = element_blank()) +
  theme(legend.position="bottom")+ 
  scale_y_discrete(limits = c("Undeveloped", "Basic", "Advanced", "World class")) +
  xlab("Importance") + ylab("Current Capability")

1 Ответ

0 голосов
/ 12 декабря 2018

Отличная работа.Может быть, вы можете попробовать добавить group = Importance в эстетику geom_text.То есть, чтобы «явно определить структуру группировки», см. группировка .Кроме того, здесь является связанным случаем. 

ggplot(data, aes(x = Importance, y = Current.Capability, fill=Function)) +
  geom_col(position = position_dodge2(preserve = "single"), width = width) +
  facet_grid(~Importance, scales = "free_x", space = "free_x") +
  geom_text(
    aes(
      label = stringr::str_wrap(Item, 50),
      group = Importance), # explicitly define the grouping structure
    lineheight = 0.7, 
    angle=90, 
    size = 5, 
    hjust=0, 
    vjust=0.5,
    y = 0.5,
    position = position_dodge2(preserve = "single", width = position.width)) +
  theme(axis.text.x = element_blank(), axis.ticks = element_blank()) +
  theme(legend.position="bottom")+ 
  scale_y_discrete(limits = c("Undeveloped", "Basic", "Advanced", "World class")) +
  xlab("Importance") + ylab("Current Capability")

enter image description here

...