如何在R语言ggplot2中仅绘制因子的单个水平

嘿，我来帮你实现只绘制level1因子水平的柱状图！这里有几种直观的方法，你可以根据自己的习惯选择：

方法1：先筛选数据再绘图 #

最直接的方式就是先从数据框里过滤出vector2等于level1的行，再基于筛选后的数据集绘图。这样你的绘图数据只包含目标类别，自然就只会显示对应的柱状图了。

修改后的代码如下：

library(ggplot2) # 别忘了加载ggplot2包哦

vector1 <- c(1, 4, 5, 6, 2, 4, 5, 8)
vector2 <- c("level1", "level2", "level2", "level1", "level3", "level2", "level2", "level3")
dataframe <- data.frame(vector1, vector2)
dataframe$vector2 <- as.factor(dataframe$vector2)

# 筛选出level1的行
filtered_df <- dataframe[dataframe$vector2 == "level1", ]

# 基于筛选后的数据绘图
plot <- ggplot(filtered_df, aes(vector2, vector1))
plot + geom_bar(stat = "identity")

方法2：在ggplot中直接过滤（无需额外创建数据集） #

如果你不想额外生成新的数据框，也可以直接在ggplot的data参数里用subset()函数过滤，或者用dplyr的filter()（如果加载了dplyr包的话）。

示例代码：

library(ggplot2)

vector1 <- c(1, 4, 5, 6, 2, 4, 5, 8)
vector2 <- c("level1", "level2", "level2", "level1", "level3", "level2", "level2", "level3")
dataframe <- data.frame(vector1, vector2)
dataframe$vector2 <- as.factor(dataframe$vector2)

# 直接在ggplot的data参数里筛选
plot <- ggplot(subset(dataframe, vector2 == "level1"), aes(vector2, vector1))
plot + geom_bar(stat = "identity")

另外，如果你已经有了原来的plot对象，也可以通过scale_x_discrete()来限制显示的因子水平：

plot + geom_bar(stat = "identity") + scale_x_discrete(limits = "level1")

这种方式会保留原始数据集，但只绘制指定的因子水平，也能达到你要的效果。

内容的提问来源于stack exchange，提问作者hmnoidk