R语言在制作现在和未来条件下的麦子量作为表内两条线，x轴分别为0 30 60。120。240 420 天，y轴为麦子量的折线方差分析

首先，我们需要创建一个包含麦子量数据的数据框。假设我们有一个现在和未来条件下的麦子量的数据框`df`，其中包含了两个变量`condition`和`yield`，`condition`表示条件（现在或未来），`yield`表示麦子量。我们可以使用以下代码创建数据框：

condition <- c(rep("Now", 5), rep("Future", 5))
yield <- c(50, 60, 70, 80, 90, 80, 90, 100, 110, 120)
df <- data.frame(condition, yield)

接下来，我们可以使用`ggplot2`包来制作折线图。以下是代码：

library(ggplot2)

ggplot(df, aes(x = factor(yield), y = condition, group = condition)) + 
  geom_line() + 
  scale_x_discrete(labels = c(0, 30, 60, 120, 240, 420)) + 
  labs(x = "Days", y = "Yield", title = "Yield by Condition") + 
  theme_bw()

这个代码生成的图形包括了两条折线，分别表示现在和未来条件下的麦子量。`scale_x_discrete()`函数用来修改x轴的标签。`labs()`函数用来修改图形的标题和轴标签。`theme_bw()`函数用来将图形主题设置为黑白主题。

接下来，我们可以使用`aov()`函数进行方差分析。以下是代码：

model <- aov(yield ~ condition, data = df)
summary(model)

这个代码将现在和未来条件下的麦子量作为因变量，条件作为自变量进行方差分析。`summary()`函数用来查看方差分析结果的摘要信息。