Удалить самое внешнее кольцо полярного графика (ggplot2)

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

Вот воспроизводимый код:

library(ggplot2)

perc_df=data.frame(id=c(125,126,127,128,129,130),percentile=c(.50,.75,.99,.27,.12,.66))

cxc <- ggplot(perc_df, aes(x = id)) +
  geom_bar(width = 1, aes(weight = percentile, fill = ..count..)) +
  scale_y_continuous(limits = c(0,1),breaks=seq(0, 1, .25),expand=c(0,0)) +
  scale_fill_gradient2(low = 'red', high = 'green',mid='yellow', limits=c(0,1),midpoint=.5,guide = "colourbar")

cxc + coord_polar(theta = 'x',start = 2.6)+ guides(fill=FALSE) +
  theme(axis.title.x=element_blank(),axis.text.x=element_blank(),axis.ticks.x=element_blank(),axis.title.y=element_blank(),
        axis.text.y=element_blank(),axis.ticks.y=element_blank(),plot.title = element_text(lineheight=.8, face="bold",hjust = 0.5),
        panel.border = element_blank())

Вот что получается:

радар

Это очень близко, но мы хотим, чтобы процентили 1 находились на последнем круге графика, а не на внешнем кольце графика.

Изменить: я уже пытался включить ответы здесь, но безуспешно. Удалите лишнее пространство и кольцо на краю полярного сюжета


r ggplot2 polar-coordinates
person BaseballR    schedule 29.09.2017    source источник
comment
Можете ли вы уточнить, что не работает в ответе, на который вы ссылаетесь? Это выглядит как дубликат этого вопроса для меня.   -  person aosmith    schedule 30.09.2017

Ответы (1)


arrow_upward
3
arrow_downward

Ответ на этот вопрос довольно прост. Вы должны добавить geom_hline (вы, вероятно, захотите их перед добавлением geom_bar). Я не думаю, что geom_vline имеет смысл в вашем случае, поскольку переменные по оси x не являются числовыми.

Я добавил одну строку:

geom_hline(yintercept = seq(0, 1, by = 0.25), colour = "grey90", size = 0.2)

Весь код выглядит так:

perc_df <- data.frame(id = c(125, 126, 127, 128, 129, 130), 
                      percentile = c(0.50, 0.75, 0.99, 0.27, 0.12, 0.66))

library(ggplot2)
ggplot(perc_df, aes(id)) +
    geom_hline(yintercept = seq(0, 1, by = 0.25), colour = "grey90", size = 0.2) +
    geom_bar(aes(weight = percentile, fill = ..count..), 
             width = 1, ) +
    scale_y_continuous(limits = c(0, 1), 
                       breaks = seq(0, 1, 0.25),
                       expand = c(0, 0)) +
    scale_fill_gradient2(low = "red", mid="yellow", high = "green", 
                         limits = c(0, 1), midpoint = 0.5, 
                         guide = "colourbar") +
    coord_polar(theta = "x", start = 2.6) + 
    guides(fill = FALSE) +
    theme_bw() +
    theme(axis.title = element_blank(),
          panel.border = element_blank(),
          legend.key = element_blank(),
          axis.ticks = element_blank(),
          axis.text = element_blank(),
          panel.grid  = element_blank(),
          plot.title = element_text(lineheight = 0.8, face = "bold", 
                                    hjust = 0.5))

И он создает такой сюжет:

введите здесь описание изображения

person pogibas    schedule 29.09.2017
comment
Не уверен, что я делаю неправильно, пробовал очень похожий код, спасибо! - person BaseballR; 30.09.2017