如何在R语言中绘制符合条件的非数值型数据图表？

首先，你需要先筛选出符合条件的数据（用途为Storing且材质为M），再根据需求选择合适的图表类型——原代码直接在映射中用逻辑判断的方式，只会生成基于TRUE/FALSE的散点，完全无法体现目标数据的特征。以下是几种实用的实现方式：

1. 统计符合条件的容器总数（柱状图） #

如果想直观展示符合要求的容器数量，柱状图是最清晰的选择：

library(ggplot2)

# 读取数据
pottery <- read.csv(file="potter.csv", header=TRUE)

# 筛选目标数据：保留用途为Storing且材质为M的行
filtered_data <- subset(pottery, Vessel.Use == "Storing" & Fabric == "M")

# 绘制柱状图
ggplot(filtered_data, aes(x = factor(1))) +
  geom_bar(fill = "#4682B4") +
  ggtitle("用途为Storing且材质为M的容器数量") +
  labs(x = "", y = "容器数量") +
  theme(plot.title = element_text(hjust = 0.5)) +
  scale_x_discrete(labels = c("目标分组"))

2. 对比目标分组与其他分组的数量（分组柱状图） #

如果需要对比不同用途、材质组合的容器数量，无需提前筛选，直接用分组统计即可：

ggplot(pottery, aes(x = Vessel.Use, fill = Fabric)) +
  geom_bar(position = "dodge") +
  ggtitle("不同用途与材质的容器数量分布") +
  labs(x = "容器用途", y = "数量") +
  theme(plot.title = element_text(hjust = 0.5)) +
  # 可选：高亮目标分组的颜色
  scale_fill_manual(values = c("M" = "#FF6347", "S" = "#90EE90"))

3. 展示符合条件的具体容器ID（文本标注图） #

如果需要列出所有符合条件的容器ID，可以用文本标注的方式展示：

ggplot(filtered_data, aes(x = 1, y = seq_along(Vessel.ID), label = Vessel.ID)) +
  geom_text(size = 4, color = "#2F4F4F") +
  ggtitle("用途为Storing且材质为M的容器ID") +
  labs(x = "", y = "") +
  theme(plot.title = element_text(hjust = 0.5),
        axis.text = element_blank(),
        axis.ticks = element_blank())

原代码问题说明 #

你原代码里的aes(x = Use=="Storing", y = Fabric=="M")是把逻辑判断结果（TRUE/FALSE）当作坐标轴变量，最终只会生成四个象限的散点，完全无法体现你想要的目标数据特征——这就是图表不符合预期的核心原因。

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