ggplot2 barplot 条形顺序 - R 编程语言

当我们使用ggplot2制作条形图时，有时我们需要按照一定的顺序来排列条形。这可以通过使用reorder()函数来实现。

准备数据

我们将使用mpg数据集来演示如何按燃油效率的降序排列条形。

library(ggplot2)

# Load mpg dataset
data(mpg)

# Grouping data by manufacturer and calculate the mean of mpg
mfr_mpg <- mpg %>% group_by(manufacturer) %>% summarize(mean_mpg = mean(cty))

# Ordering data by mean_mpg in descending order
mfr_mpg <- mfr_mpg[order(-mfr_mpg$mean_mpg),]

使用ggplot2创建条形图

我们将创建一个简单的条形图，以检查数据是否正确加载。

# Create a basic bar plot
ggplot(mfr_mpg, aes(x=manufacturer, y=mean_mpg)) + 
  geom_bar(stat="identity")

按降序排列条形

现在，我们将使用reorder()函数来按照燃油效率的降序排列条形。

# Reorder manufacturers by mean_mpg in descending order
mfr_mpg$manufacturer <- reorder(mfr_mpg$manufacturer, mfr_mpg$mean_mpg)

# Create a reordered bar plot
ggplot(mfr_mpg, aes(x=manufacturer, y=mean_mpg)) + 
  geom_bar(stat="identity") +
  xlab("Manufacturer") +
  ylab("Mean MPG") +
  ggtitle("Bar Plot of Mean MPG by Manufacturer")

我们可以看到，条形按照燃油效率的降序排列了。