小编goc*_*ack的帖子

我正在使用ggplot和facet_wrap来获取所需的图.我必须在每个方面的标签或每个方面的变量或名称上添加一些东西,就像我们如何直接在ggplot下修改xlab和ylab一样.

例:

d <- ggplot(diamonds, aes(carat, price, fill = ..density..)) +
  xlim(0, 2) + stat_binhex(na.rm = TRUE) + theme(aspect.ratio = 1)

d + facet_wrap(~ color)

我现在要做的就是将每个方面的标签i,e D,E,F,G,H,I,J更改为其他内容.

我怎么修改这个？

加成

对不起,我试图打破它但是,这需要时间,所以我在github中添加它.您可以上传文件并检查结果.问题在于选项4 facet_wrap ...您可以选择单选按钮选项4.

我已经评论过我在数据完整性正常的前面使用的facet_wrap,但是如果我更改了facet包装,那么图表的行为也会不同,而且数据也是如此.

要上传的数据可以在"要上传的数据"文件夹中找到

代码可以在这里找到:我将在一分钟内添加它

这个问题是参考这个问题

上面的问题是关于更改facet_wrap的标签,答案是完美的 - >添加修改后的标签作为数据集的新列.

现在,我面临的问题是 -

用户选择多个变量 selectInput("select", h4("Variables:"), choices=var.both1(), selected=var.both1()[1], multiple=T, width="100%")

(例如:让我们考虑input$select长度可以是6)现在input$select包含六个变量,我想检查每个变量并为其分配单位,我可以通过以下反应组件部分实现这一点

variableunit <- reactive ({
  if(input$select == "TEPC") {"degC"}
  else if(input$select == "AT"){"µmol/kg"}
  else if(input$select == "DIC" | input$select == "DIN" | input$select == "PIC" | input$select == "POC" | input$select == "PON" | input$select == "POP" | input$select == "DOC" | input$select == "DON" | input$select == "DOP" | input$select == "TEP"){c("µmol/L")}
  else if(input$select == "Chla"){"µg/L"}
  else ("Meters")  
})

在variableunit …

我想要求用户输入整数值列表。用户可以输入单个值或一组多个值，如 1 2 3（空格或逗号分隔），然后使用输入的数据进行进一步计算。

我正在使用以下代码

EXP <- as.integer(readline("enter the experiment numbers (You can include multiple number of experiments with space seperate) \n"))

这里有或没有整数，无论​​我在 EXP 中存储什么值，我都不能在进一步的编程中使用它们。像下面

gg2 <- subset((aggregate(cbind(var)~En+Mn+hours,a, FUN=mean)),(aggregate(cbind(var)~En+Mn+hours,a, FUN=mean))$En == c(EXP))

上述命令在条件 $En == c(EXP) 时失败，因为通过 readline 输入的值不起作用。

我该怎么办？

2）以上问题是关于整数的。在输入字符的情况下，相同的解决方案不起作用。就像下面

 prompt1 <- "enter the variable_name \n"
     var <- as.character((readline(prompt1))[[1]])

在这里，如果我在提示中输入 Ph，那么 var 将像“Ph”一样存储，这个值我不能在命令行中使用

gg2 <- subset((aggregate(cbind(var)~En+Mn+hours,a, FUN=mean)),(aggregate(cbind(var)~En+Mn+hours,a, FUN=mean))$En == c(EXP))

它会抛出错误，例如，变量长度不同（为“En”找到），但如果我用实际值（如 Ph）替换 var，那么它会正常工作。

数据集上传到这里... Dataset a <- 数据集导入

Consider names(a) = c("Ei","Mi","hours","Nphy","Cphy","CHLphy","Nhet","Chet","Ndet","Cdet","DON","DOC","DIN","DIC","AT","dCCHO","TEPC","Ncocco","Ccocco","CHLcocco","PICcocco","par","Temp","Sal","co2atm","u10","dicfl","co2ppm","co2mol","pH")

我在做这个

v1 <- quote(var1 <- as.numeric(readline('Enter a …