两个代码块都引用相同的基本打印代码（p）。因此，以下代码块：

p+scale_x_discrete(name="Time intervals") +
  scale_y_continuous(name="Tumour volume change (%)" , limits = c(-100,500))  
  
p + geom_text(data = tumourvolume, aes(y=Volume+1.85 , label = Volume), 
            position = position_dodge(width=0.5) , size=2)

将连续创建两个地块：一个应用scale_函数，另一个添加文本值。如果目的是创建一个包含scale_函数 * 和 * 添加文本geom的图，请使用以下之一：

# CODE OPTION 1: all one block
p + scale_x_discrete(name="Time intervals") +
  scale_y_continuous(name="Tumour volume change (%)" , limits = c(-100,500)) + 
  geom_text(data = tumourvolume, aes(y=Volume+1.85 , label = Volume), 
            position = position_dodge(width=0.5) , size=2)

# CODE OPTION 2: reassign p mid-block
p <- p + scale_x_discrete(name="Time intervals") +
  scale_y_continuous(name="Tumour volume change (%)" , limits = c(-100,500))  
  
p + geom_text(data = tumourvolume, aes(y=Volume+1.85 , label = Volume), 
            position = position_dodge(width=0.5) , size=2)