x轴名称和颜色变化答案

【问题标题】：Name of x-axis and changing colourx轴名称和颜色变化
【发布时间】：2020-12-03 17:44:53
【问题描述】：

这是我的数据集：

structure(list(Resort = c("Park City", "Powder Mountain", "Snowbird", 
"Alta", "Snow Basin", "Deer Valley"), `Named Runs` = c(348, 154, 140, 116, 107, 103)), 
row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"))

这是我拼凑的代码。我想知道是否有人可以帮助我更改 x 轴标签的名称，同时保持我的重新排序正确？我也想改变颜色。谢谢！

library(readxl)
library(ggplot2)
library(dplyr)

        Utah_ski_resort_data_ <- read_excel("Desktop/Utah ski resort data..xlsx")

        View(Utah_ski_resort_data_)

        table(Utah_ski_resort_data_$Resort)
        table(Utah_ski_resort_data_$`Named Runs`)


        Utah_ski_resort_data_ <- structure(list(Resort = c("Park City", "Powder Mountain", 
        "Snowbird", 
                                                   "Alta", "Snow Basin", "Deer Valley", 
        "Solitude", "Brian Head", "Brighton", "Beaver Mountain", "Sundance", "Eagle Point", 
        "Nordic Valley"), `Named Runs` = c(348, 154, 140, 116, 107, 103, 82, 71, 66, 48, 44, 40, 
        23)), 
                                   row.names = c(NA, -13L), class = c("tbl_df", "tbl", 
        "data.frame"))
        Utah_ski_resort_data_ %>% 
           ggplot(aes(x = reorder(Resort, -`Named Runs`), y = `Named Runs`)) +
           geom_bar(stat = "identity") + 
         theme(axis.text.x = element_text(angle = 60, hjust = 1))
```

【问题讨论】：

标签： r ggplot2 axis-labels

【解决方案1】：

也许是这样的：

library(dplyr)
library(ggplot2)
#Code
Utah_ski_resort_data_ %>% 
  ggplot(aes(x = reorder(Resort, -`Named Runs`), y = `Named Runs`)) +
  geom_bar(stat = "identity") + 
  theme(axis.text.x = element_text(angle = 60, hjust = 1,
                                   colour = 'cornflowerblue'),
        axis.title.x = element_text(colour = 'deeppink'))+
  labs(x='My name')

输出：

【讨论】：