R 美学错误

我的情节有问题（R工作室+闪亮）

错误：

收听
警告：错误：美学必须为长度1或与数据（14）相同：x、y、颜色
堆栈跟踪（最里面的第一个）：
68：输出$plot6th
1:runApp

脚本/应用程序：

https://github.com/futer/japan_telecom/

自述文件上的内容是如何吃午餐

第二个问题。。。 我制作了6个动作按钮，但我不知道如何制作： 单击按钮1，仅显示绘图1等

---

如果有人帮助我，我会很高兴的。

您生成图表的方法是错误的；您应该将data.frame转换为长格式，然后生成图表。由于整个应用程序太大，无法在此处发布，我准备了一份摘录，说明如何处理您想要处理的数据帧：

Vectorize(require)(package = c("dplyr", "tidyr", "ggplot2", "zoo"),
                   character.only = TRUE)

# Sourced from within the app
df %>% 
  gather(key = indicator, value = value, -Date) %>% 
  # Scale is just an example
  mutate(valueScld = scale(value)) %>% 
  # Chart definition
  ggplot(aes(x = Date, y = value, group = indicator, colour = indicator)) +
  scale_x_date(date_breaks = "4 years") +
  geom_line()

然后，您将开始获得与所需图表相似的内容：

---

我进一步建议您看看在

ggplot2

中生成图形的步骤；转换数据帧后，处理美学将变得简单。在您的代码中，您定义了

geom_line

次数x，每一组的次数都不是一个好办法。

请将其减少到足够小的程度，使其能够在问题中完全显示，同时仍然是独立的和可复制的。