Удаление контурных линий из ggplot geom_crossbar - PullRequest
Новая
       16

Удаление контурных линий из ggplot geom_crossbar

1 голос
/ 18 апреля 2020

Ниже приведен пример набора данных и кода графика с geom_crossbar, который приближает меня к тому, что я ищу, за исключением того, что я не могу найти способ удалить черную контурную линию вокруг столбцов. 

data = data.frame(age = c(10,12,14,16,18), 
                  height_min = c(120,140,148,150,150),
                  height_max = c(150,165,172,175,175))
ggplot(data) +
  geom_crossbar(aes(ymin= height_min, ymax=height_max, x=age, y=height_min),
                fill = "gray70", fatten=0) + 
  theme_bw() + 
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) +
  theme(panel.border = element_blank()) + 
  theme(axis.line = element_line(colour = "black")) +
  labs(x=expression(paste("Age (years)")), 
       y=expression(paste("Height (cm)"))) +
  theme(plot.margin = unit(c(1,1,1,1), "cm")) +
  theme(axis.text=element_text(size=20),
        axis.title=element_text(size=30,face="bold"))

Как удалить черные контурные линии вокруг столбцов?

1 Ответ

1 голос
/ 18 апреля 2020

Вы можете добавить "linetype = 0" или "color = NA" в geom_crossbar. «size = 0» также работает, если вам не нужно экспортировать график (в противном случае столбцы исчезают).

Вот код на случай, который может быть полезен для других: 

data = data.frame(age = c(10,12,14,16,18), 
                  height_min = c(120,140,148,150,150),
                  height_max = c(150,165,172,175,175))
ggplot(data) +
  geom_crossbar(aes(ymin= height_min, ymax=height_max, x=age, y=height_min),
                fill = "gray70", fatten=0, linetype = 0) + 
  theme_bw() + 
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) +
  theme(panel.border = element_blank()) + 
  theme(axis.line = element_line(colour = "black")) +
  labs(x=expression(paste("Age (years)")), 
       y=expression(paste("Height (cm)"))) +
  theme(plot.margin = unit(c(1,1,1,1), "cm")) +
  theme(axis.text=element_text(size=20),
        axis.title=element_text(size=30,face="bold"))

Спасибо dc37 за ваш комментарий!

...