gvisMotionChart：更改默认变量

我有一个

data.frame

df

，由四个站点（1到4个）组成。从2011年到2014年，每个站点有四个参数（A到D）的值。我想为site1创建一个运动图表

library(dplyr)
siteID <- c(rep("site1", 16), rep("site2", 16), rep("site3", 16), rep("site4", 16))
YEAR <-   as.numeric(rep(c("2011", "2012", "2013", "2014"), 16))
parameter <- c(rep("A", 4), rep("B", 4), rep("C", 4), rep("D", 4),
               rep("A", 4), rep("B", 4), rep("C", 4), rep("D", 4),
               rep("A", 4), rep("B", 4), rep("C", 4), rep("D", 4),
               rep("A", 4), rep("B", 4), rep("C", 4), rep("D", 4))
value <- c(seq(1, 4, by=1), seq(10, 40, by=10), seq(12, 18, by=2), seq(5, 20, by=5),
           seq(3, 12, by=3), sample(13:18, 4), sample(15:22, 4), sample(10:18, 4),
           seq(7, 1, by=-2), sample(15:22, 4), sample(15:19, 4), sample(10:20, 4),
           seq(8, 5, by=-1), seq(50, 20, by=-10), seq(16, 10, by=-2), seq(20, 5, by=-5))
df <- data.frame(siteID, YEAR, parameter, value)
df$YEAR <- as.numeric(df$YEAR)

df1 <- df %>%
  dplyr::filter(siteID =="site1")

它工作得很好。结果就在这里

但是，默认的

x轴

和

y轴

是

值

。我不得不将自己的x轴从一个值改为另一个值

我想更改默认值，以便

x轴

将为

YEAR

，

colorvar

将为

参数

，

sizevar

将为

值

。我是用这个代码做的

site1_1 = gvisMotionChart(data=df1, 
                         idvar="parameter", 
                         timevar="YEAR",
                         chartid="site1",
                         xvar="YEAR", 
                         yvar="value",
                         colorvar="parameter", 
                         sizevar="value")

plot(site1_1)

它一直显示为加载，但未创建绘图。

---

如果您有任何建议，我们将不胜感激。

我认为下面的内容应该可以帮助您实现这一目标。剩下的就是适当地设置选项，去掉逗号之类的东西

df1 <- df %>%
  dplyr::filter(siteID =="site1") %>%
  mutate(Date = YEAR) %>%
  mutate(colorValue = parameter) %>%
  mutate(sizeValue = value)



library(googleVis)
site1 = gvisMotionChart(data=df1, 
                        idvar="parameter", 
                        timevar="YEAR",
                        chartid="site1",
                        xvar = "Date",
                        yvar = "value",
                        colorvar = "colorValue",
                        sizevar = "sizeValue")
plot(site1)

df1%
dplyr:：筛选器（siteID==“site1”）%>%
突变（日期=年份）%>%
变异（colorValue=参数）%>%
变异（sizeValue=值）
图书馆（谷歌）
站点1=gvisMotionChart（数据=df1，
idvar=“参数”，
timevar=“年”，
chartid=“site1”，
xvar=“日期”，
yvar=“value”，
colorvar=“colorValue”，
sizevar=“sizeValue”）
地块（场地1）

Hi，在df中，在每个时间点，您都需要x和y值。以2011年为例。您需要参数A、B、C、D的x和y值。您提供的只是x值。您能提供更多信息吗？@user1357015谢谢您的帮助。正如我在问题中提到的，绘图工作正常，但默认轴是x轴和y轴的值。我必须将x轴更改为时间（年）。有没有办法让它在默认时间内运行。不，它运行得不好。事实上，在x轴上你正在绘制“值”，在y轴上你正在绘制“值”。如果将“年”绘制为x值，则值将垂直排列，而不是对角线。@user1357015谢谢。如上图所示，我通过将x值更改为YEAR来垂直获得它们。宾果！那么你现在需要它做什么呢？还有一点，我试图添加一个title options=list（title=“My gVIS Motion Chart”），但它不会出现在绘图上。任何建议都将不胜感激。运动图表没有标题选项。请参见此处：其他图表类型在“配置选项”下有标题，而不是此类型。

df1 <- df %>%
  dplyr::filter(siteID =="site1") %>%
  mutate(Date = YEAR) %>%
  mutate(colorValue = parameter) %>%
  mutate(sizeValue = value)



library(googleVis)
site1 = gvisMotionChart(data=df1, 
                        idvar="parameter", 
                        timevar="YEAR",
                        chartid="site1",
                        xvar = "Date",
                        yvar = "value",
                        colorvar = "colorValue",
                        sizevar = "sizeValue")
plot(site1)