小编105*_*tor的帖子

我有同样的问题,问这个职位.问题没有解决,所以我决定再次询问同一个问题(我不知道这是否是这样做的方式,或者原始问题中的评论是否更合适).

我已经制作了一个Shiny应用程序,并在部署时遇到以下错误:

Preparing to deploy application...DONE
Uploading application bundle...Detecting system locale ... Error in 
read.table(file = file, header = header, sep = sep, quote = quote,  :
incomplete final line found by readTableHeader on 'system("systeminfo /FO csv", 
intern = TRUE, wait = TRUE)'
Calls: <Anonymous> ... systemLocale -> systemInfo -> read.csv -> read.table
Execution halted

我必须尝试通过这段代码更改我的语言环境,但问题仍然存在:

Sys.setlocale("LC_ALL","English")

我有2个对象:

包含3个变量的数据框:

v1 <- 1:10
v2 <- 11:20
v3 <- 21:30
df <- data.frame(v1,v2,v3)

包含3个元素的数字向量:

nv <- c(6,11,28)

我想将第一个变量与第一个数字进行比较,将第二个变量与第二个数字进行比较,依此类推.

which(df$v1 > nv[1])
which(df$v2 > nv[2])
which(df$v3 > nv[3])

当然,实际上我的数据框有更多变量,因此手动输入每个变量不是一个选项.

我经常遇到这些问题.我需要阅读哪些文件才能熟练掌握这些问题？

我想创建一个函数,可以计算可变数量的最后观察值和不同变量的移动平均值.以此为模拟数据:

df = expand.grid(site = factor(seq(10)),
                 year = 2000:2004,
                 day = 1:50)
df$temp = rpois(dim(df)[1], 5) 

计算1个变量和固定数量的最后观察值.例如,这计算过去5天的平均温度:

library(dplyr)
library(zoo)

df <- df %>% 
            group_by(site, year) %>% 
                arrange(site, year, day) %>% 
                      mutate(almost_avg = rollmean(x = temp, 5, align = "right", fill = NA)) %>%
                          mutate(avg = lag(almost_avg, 1))

到现在为止还挺好.现在尝试功能化失败.

avg_last_x <- function(dataframe, column, last_x) {

  dataframe <- dataframe %>% 
    group_by(site, year) %>% 
      arrange(site, year, day) %>% 
        mutate(almost_avg = rollmean(x = column, k = last_x, align = "right", fill = NA)) %>% …