数据data中Y为无序四分类因变量，已经有真实标签、预测标签，怎样绘制ROC曲线？使横纵坐标为TPR、FPR？请输出R代码。

以下是R代码：

library(pROC)

# 将真实标签和预测标签转化为二元变量
y_true <- factor(data$Y, levels = c(1, 2, 3, 4))
y_pred <- factor(data$predicted_label, levels = c(1, 2, 3, 4))

# 计算ROC曲线的TPR和FPR
roc_data <- roc(y_true, y_pred)
tp <- roc_data$tp/(roc_data$tp+roc_data$fn)
fp <- roc_data$fp/(roc_data$tn+roc_data$fp)

# 绘制ROC曲线
plot(fp, tp, type="l", col="blue", xlab="False Positive Rate", ylab="True Positive Rate")

在此基础上，您可以进一步调整曲线的表现形式，例如添加对角线（即随机猜测的曲线）或选择不同的颜色等。