Добавление меток оси и заголовка в ggballoonplot () - PullRequest
Новая
       7

Добавление меток оси и заголовка в ggballoonplot ()

0 голосов
/ 19 мая 2018

Код, который я использовал, и результат можно увидеть на рисунке ниже.Основная проблема заключается в том, что заголовок не отображается в центре, а метки x и y вообще не отображаются.Как это исправить?

График и код

1 Ответ

0 голосов
/ 19 мая 2018

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

Возьмите пример ниже.Вы можете воссоздать набор данных и сразу же запустить код.

Используя ggtitle, xlab, ylab , вы можете нарисовать текст и отцентрировать его с помощью theme .

Если это не поможет, у вас неправильные настройки печати / рендеринга. 

balloon <- data.table(structure(list(Genera = c("Prevotella", "Treponema", "Fusobacterium","Selenomonas", "Veillonella", "Porphyromonas", "Streptococcus","Leptotrichia", "Aggregatibacter", "Succiniclasticum"), S1 = c(97L,28L, 11L, 40L, 5L, 13L, 10L, 24L, 0L, 16L), S3 = c(5370L, 3760L,5551L, 2087L, 533L, 873L, 1330L, 5877L, 1213L, 44L), S4 = c(7892L,8004L, 11017L, 19712L, 5115L, 2695L, 7451L, 13611L, 301L, 2557L), S5 = c(23L, 79L, 30L, 7L, 0L, 34L, 0L, 2L, 2L, 0L), S6 = c(8310L,3379L, 38058L, 1133L, 2506L, 17811L, 12103L, 403L, 668L, 3L),S2 = c(7379L, 14662L, 10085L, 148L, 1502L, 5222L, 1010L,2463L, 4790L, 28L), S7 = c(6238L, 18977L, 2674L, 2198L, 27L,2999L, 174L, 1197L, 5268L, 5L), S8 = c(20019L, 18674L, 15306L,1472L, 1898L, 9600L, 1683L, 2221L, 3435L, 1109L), S9 = c(153L,12L, 23L, 36L, 15L, 15L, 6L, 41L, 0L, 30L), S10 = c(20103L,29234L, 10857L, 2869L, 4923L, 14206L, 1415L, 4574L, 649L,2160L)), .Names = c("Genera", "S1", "S3", "S4", "S5", "S6","S2", "S7", "S8", "S9", "S10"), class = c("data.table", "data.frame"), row.names = c(NA, -10L))) 

library(ggplot2)
library(reshape2)
library(data.table)
balloon<-fread("Downloads/balloon.csv")
balloon
balloon_melted<-melt(balloon)
head(balloon_melted)
p <- ggplot(balloon_melted, aes(x =variable, y = Genera)) 
p+
  geom_point( aes(size=value))+
  theme(panel.background=element_blank(), 
        panel.border = element_rect(colour = "blue", fill=NA, size=1)) +
  ggtitle("Pretty title") + 
  xlab("x lab label") +
  ylab("y lab label") +
  theme(plot.title = element_text(hjust = 0.5))
...