如何在R的ggplot中绘制单条记录data.frame非零列的条形图？

我明白你的需求啦——就像Python里用seaborn.barplot那样，把单条数据里非零列的数值做成条形图展示在同一图里。问题出在直接转置数据时没处理好列名，其实只要把宽格式的数据转成ggplot喜欢的**长格式（tidy data）**就搞定了，下面给你两种实用方法：

方法一：用tidyverse（推荐，更灵活） #

tidyverse里的tidyr::pivot_longer专门用来处理宽转长的问题，配合ggplot能快速画出你要的图：

1. 先加载必要的包：

library(tidyverse) # 包含ggplot2和tidyr，一站式搞定

2. 定义你的数据框：

df <- data.frame(a=1, b=0, c=10, d=20)

3. 把宽数据转成长格式，同时过滤掉值为0的行：

df_long <- df %>%
  pivot_longer(
    cols = everything(),  # 选中所有列进行转换
    names_to = "Name",    # 原来的列名存到新列"Name"里
    values_to = "count"   # 原来的数值存到新列"count"里
  ) %>%
  filter(count != 0) # 只保留非零的记录

4. 用ggplot绘制条形图，完全对应你Python里的逻辑：

ggplot(df_long, aes(x = Name, y = count)) +
  geom_bar(stat = "identity") + # 直接用已有数值绘制条形
  labs(x = "列名", y = "数值") + # 自定义坐标轴标签
  theme_minimal() # 可选，换个清爽的主题

方法二：用基础R（不用额外包） #

如果你不想加载tidyverse，用基础R的转置和数据处理也能实现：

# 转置数据并转换为数据框
df_transposed <- as.data.frame(t(df))
# 给数值列命名为"count"
colnames(df_transposed) <- "count"
# 把原来的列名提取为新列"Name"
df_transposed$Name <- rownames(df_transposed)
# 过滤非零行
df_filtered <- df_transposed[df_transposed$count != 0, ]

# 绘制条形图
barplot(df_filtered$count, names.arg = df_filtered$Name,
        xlab = "列名", ylab = "数值")

两种方法都能得到你要的结果，推荐用tidyverse的方案，后续如果要调整图表样式或者处理更复杂的数据，扩展性更强~

内容的提问来源于stack exchange，提问作者SAM.Am