R：忽略未知的美学：标签

Question

我在使用 geom_point 进行绘图时出错。

library(ggplot2)
theme_set(theme_bw())

mtcars$`car name` <- rownames(mtcars) 
mtcars$mpg_z <- round((mtcars$mpg - mean(mtcars$mpg))/sd(mtcars$mpg), 2)  
mtcars$mpg_type <- ifelse(mtcars$mpg_z < 0, "below", "above") 
mtcars <- mtcars[order(mtcars$mpg_z), ]  # sort
mtcars$`car name` <- factor(mtcars$`car name`, levels = mtcars$`car name`) 

ggplot() + 
  geom_point(data=mtcars, aes(x=`car name`, y=mpg_z,label=mpg_z), stat='identity', fill="black", size=6)  +
  geom_text(color="white", size=2) +
  labs(title="Diverging Lollipop Chart", 
       subtitle="Normalized mileage from 'mtcars': Lollipop") + 
  ylim(-2.5, 2.5) +
  coord_flip() 

但我无法在点内输入数字并出现错误：

Warning: Ignoring unknown aesthetics: label

剧情来了。先感谢您！！！

Answer 1

这是我个人认为更有吸引力的另一种方法（它还避免了附近点的重叠标签问题）：

library(ggplot2)
#> Warning: package 'ggplot2' was built under R version 3.4.3
library(ggrepel)
#> Warning: package 'ggrepel' was built under R version 3.4.2
theme_set(theme_bw())

mtcars$`car name` <- rownames(mtcars)
mtcars$mpg_z <-
  round((mtcars$mpg - mean(mtcars$mpg)) / sd(mtcars$mpg), 2)
mtcars$mpg_type <- ifelse(mtcars$mpg_z < 0, "below", "above")
mtcars <- mtcars[order(mtcars$mpg_z),]  # sort
mtcars$`car name` <-
  factor(mtcars$`car name`, levels = mtcars$`car name`)

ggplot() +
  geom_point(
    data = mtcars,
    mapping = aes(x = `car name`, y = mpg_z),
    stat = 'identity',
    fill = "black",
    size = 6
  )  +
  geom_text(color = "white", size = 2) +
  labs(title = "Diverging Lollipop Chart",
       subtitle = "Normalized mileage from 'mtcars': Lollipop") +
  ylim(-2.5, 2.5) +
  coord_flip() +
  ggrepel::geom_label_repel(data = mtcars,
                            mapping = aes(x = `car name`, y = mpg_z, label = mpg_z))

由reprex package (v0.1.1.9000) 于 2018 年 2 月 13 日创建。

Answer 2

只需将您的 aes 呼叫转移到 ggplot

ggplot(data=mtcars, aes(x=`car name`, y=mpg_z,label=mpg_z)) + 
  geom_point(stat='identity', fill="black", size=6)  +
  geom_text(color="white", size=2) +
  labs(title="Diverging Lollipop Chart", 
       subtitle="Normalized mileage from 'mtcars': Lollipop") + 
  ylim(-2.5, 2.5) +
  coord_flip() 

geom_point 和 geom_text 将继承相关的美学。