使用ggplot2重命名意大利面条图中x轴上的刻度线

Question

我对R很陌生，我试图创建一个意大利面条图，以比较4组在不同时间点（手术后1小时，手术后4小时，8小时和术后1天早上和之后，术后第1天下午）。

玩了之后，我从以下代码开始创建了一个不错的图形：

plot <-- ggplot(data=rescue, aes(Measurement, Percentage, color=factor(Group))) + geom_line()

通过几个命令，我根据自己的喜好调整了图形，并得到了以下结果：

我想用标签1 hour ， 4 hours ， 8 hours ， POD1 Morning和POD1 Afternoon替换x-axis的1 hour 。

我搜索了该网站和google，并想到了以下代码：

plot1 <-- plot + scale_x_discrete(labels=c("1"="1 hour", "2"="4 hours", "3"="8 hours", "4"="POD1 Morning", "5"="POD1 Afternoon"))

我也尝试了levels=c(1,2,3,4,5)和labels=c("1 hour", "4 hours", etc)但是我得到的只是一个空的x-axis ，没有新的标签。 我似乎无法使其工作。 在另一篇文章中，我阅读了使用xaxt="n"的建议，但无法将其与ggplot2一起ggplot2 。

谁能帮我吗？ 非常感谢！

Answer 1

考虑在scale_x_discrete()使用中断

plot <- ggplot(data=rescue, aes(Measurement, Percentage, color=factor(Group))) + 
        geom_line() +  
        scale_x_discrete(breaks=c(1, 2, 3, 4, 5), 
                labels=c("1 hour", "4 hours", "8 Hours", "POD1 Morning", "POD1 Afternoon"))

Answer 2

您正在尝试将离散轴应用于连续变量（测量）。 解决方法是将Measurement变成因素：

plot <-- ggplot(data=rescue, aes(factor(Measurement), Percentage, color=factor(Group))) + geom_line()

您可能需要通过添加手动更改标签

+ labs(x = 'Measurement')