Question

我使用的代码和结果可以在下图中看到。主要问题是标题没有出现在中心，x和y标签根本没有出现。我该如何解决这个问题？

Answer 1

您应该将代码作为代码段和数据上传，以便我们可以轻松地在自己的计算机上重现这一点......

以下面的例子为例。您可以重新创建数据集，然后立即运行代码。

使用 ggtitle，xlab，ylab ，您可以绘制文本并以主题为中心。

如果这样做没有帮助，则打印/渲染设置错误。

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))

将轴标签和标题添加到ggballoonplot（）

1 个答案: