我想知道是否有人可以帮助重新标记“填充”变量“和堆积条形图上的 x 轴？

我的志向是：

• 表示健康调查中六个域的填充变量，标题为'MR，Mob，SC，Act，Pain，Anx'）
• 并让 x 变量代表“健康状态”（0,1,2,3,4,5），而不是 X0,X1....X5

library(ggplot2)
library(dplyr)
library(reshape2)
library(viridis)
library(hrbthemes)
library(readxl)

data <- read.table(text = "0    1   2   3   4   5
MR  155 211 64  14  1   1
Mob 0   393 51  2   0   0
SC  0   427 12  7   0   0
Act 0   386 45  15  0   0
Pain    0   379 62  5   0   0
Anx 0   355 73  18  0   0", header = TRUE)


data$row <- seq_len(nrow(data))
data2 <- melt(data, id.vars ="row")

ggplot(data2, aes(x = variable, y = value, fill = row)) + 
  geom_bar(stat = "identity") +
  xlab("\nHealthState") +
  ylab("Count\n") +
  theme_bw()

感谢所有反馈。