只需将新labels
的x
变量
library(tidyverse)
ggplot(myData, aes(x = fct_reorder(x, -y), y = y)) +
geom_col(width = 0.5) +
scale_x_discrete(breaks = c("windows", "macos", "html5"),
labels = c("Windows", "MacOS", "HTML5"))
# or
my_x_labels <- setNames(c("Windows", "MacOS", "HTML5"),
c("windows", "macos", "html5"))
ggplot(myData, aes(x = fct_reorder(x, -y), y = y)) +
geom_col(width = 0.5) +
scale_x_discrete(labels = my_x_labels) +
theme_minimal()
# or
myData <- myData %>%
mutate(x = factor(x,
levels = c("windows", "macos", "html5"),
labels = c("Windows", "MacOS", "HTML5")))
ggplot(myData, aes(x = fct_reorder(x, -y), y = y)) +
geom_col(width = 0.5)
由reprex软件包(v0.3.0)创建于2019-11-10
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句