在R中更改绘图的颜色

我想知道为什么我不能改变我的酒吧的颜色。希望你能帮上忙，我是个新手

ggplot2(data, aes(x = data$Crop, y = data$"2018"))+
    geom_bar(color="black", fill="red") +
    theme(axis.text.x = element_text(angle = 60, vjust = 1, hjust = 1)) +
    main="Production value per crop in 2018" +
    ylab("Production value in 2018")+
    xlab("Crop")+

---

希望收到您的来信。

对您的代码稍作修改：

library(tidyverse)
data <- data.frame(Crop = c("East","West","North","South"),
                   Y2018 = c(1000,2000,3000,400),
                      stringsAsFactors = TRUE)

ggplot(data, aes(x = data$Crop, y = data$Y2018)) + 
  geom_col(color="black", fill="red") + 
  theme(axis.text.x = element_text(angle = 60, vjust = 1, hjust = 1)) + 
  labs(
    title = "Production value per crop in 2018",
    ylab = "Production value in 2018",
    xlab = "Crop"
  )

库（tidyverse）
数据这是代码，虽然xlab给出了一个错误，指向意外的符号

setwd("C:/Users/####/OneDrive/Documenten") # include the path to your data
data<-read_xlsx("datasetR.xlsx")
str(data) # get an overview of the data


library(ggplot2)
library(tidyverse)
dCrop <- data$Crop
d2018 <- data$"2018"

ggplot(data, aes(x = dCrop, y = d2018)) +
    geom_col(width=1, fill = "red") +
    theme(axis.text.x = element_text(angle = 60, vjust = 1, hjust = 1)) +
    ggtitle("Production value per crop in 2018")+
    ylab("Production value in 2018") +
    xlab("Crop")

setwd（“C:/Users/#######/OneDrive/Documenten”）#包括数据的路径
数据请共享一个。至少有一些数据，这样我们就可以自己运行代码了。
ggplot（data，aes（x=Crop））+geom_bar（color=“black”，fill=“red”）
应该可以做到这一点。您的预期输出是什么？您的实际输出是什么样子的？您不应该在
aes（）中使用
$
。最好切换到aes（x=Crop，y=2018`）
最终我成功了。