Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/78.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何从行中提取列并将输出保存为变量dplyr_R_Dplyr - Fatal编程技术网

如何从行中提取列并将输出保存为变量dplyr

如何从行中提取列并将输出保存为变量dplyr,r,dplyr,R,Dplyr,我试图从excel工作表(df)的特定行中提取特定列。然而,当我尝试这样做时,我得到了一个信息: 错误:。。。必须计算到列位置或名称,而不是列表 调用`rlang::last_error()`查看回溯 当我调用rlang::last_error()时,我得到: Backtrace: 1. dplyr::select(., FGA, FTA, TOV, MP, TmFga, TmFta, TmTov, TmMin) 9. tidyselect::vars_select(tbl_vars(.

我试图从excel工作表(df)的特定行中提取特定列。然而,当我尝试这样做时,我得到了一个信息:

错误:。。。必须计算到列位置或名称,而不是列表

调用
`rlang::last_error()`
查看回溯

当我调用
rlang::last_error()
时,我得到:

Backtrace:
  1. dplyr::select(., FGA, FTA, TOV, MP, TmFga, TmFta, TmTov, TmMin)
  9. tidyselect::vars_select(tbl_vars(.data), !!!enquos(...))
 10. tidyselect:::bad_calls(bad, "must evaluate to { singular(.vars) } positions or names, \\\n       not { first_type }")
 11. tidyselect:::glubort(fmt_calls(calls), ..., .envir = .envir)
 12. dplyr::select(., FGA, FTA, TOV, MP, TmFga, TmFta, TmTov, TmMin)
在这一点上,我迷路了。我可以对我的代码做些什么来工作

library(readxl)
Lakers_Overall_Stats <- read_excel("Desktop/Lakers Overall Stats.xlsx")
library(readxl)
Lakers_Record <- read_excel("Desktop/Lakers Record.xlsx")
require(dplyr)
require(ggplot2)

##WinPercentage of the Team after season
mydata <- Lakers_Record %>% select(Pts,Opp,W,L)%>%
  + mutate(wpct=Pts^13.91/(Pts^13.91+Opp^13.91),expwin=round(wpct*(W+L)),diff=W-expwin)
head(mydata)

##Specifiying 
Lakers_Overall_Stats[23,6] <- TmMin
Lakers_Overall_Stats[23,8] <- TmFga
Lakers_Overall_Stats[23,18] <- TmFta
Lakers_Overall_Stats[23,26] <- TmTov

rlang::last_error()

##Usage Percentage
Usgpct <- Lakers_Overall_Stats %>% select(FGA,FTA,TOV,MP,TmFga,TmFta,TmTov,TmMin)%>%
  + mutate(100*(Fga+0.44*Fta+Tov))*TmMin/(TmFga+0.44*TmFta+TmTov)*5(MP)
##head(Usgpct)
##filter(rank(desc(Usgpct))==1)
库(readxl)
湖人队的总体统计数据你有

Lakers_Overall_Stats[23,6] <- TmMin

lakes_totall_Stats[23,6]如果您包含一个简单的示例输入和所需的输出,可以用来测试和验证可能的解决方案,那么就更容易帮助您。为了让事情变得更简单
df[23,6],您似乎刚刚更改了变量名。如果没有任何样本数据,我不确定这是否会使它变得更容易。您应该编辑您的问题,使其可重复,而不是添加代码或数据作为注释。但是,可能我不理解,即使我将列号更改为df[1,2],我也理解,在调用mtcars[3,2]时,我将从第三行获得第二列。但是,这仍然不能回答为什么我不能将第三行中的第二列保存为特定变量,以便将其用于我的等式。谢谢你,亚瑟!我不熟悉R的编码。我如何设置它,使它们不是独立的变量?你是什么意思?因为它们是单值变量,所以它们似乎不属于表中。什么是“TmMin”等。?它们是每行的特定值吗?或者它们是一些汇总统计数据?
Lakers_Overall_Stats[23,6] <- TmMin
TmMin <- Lakers_Overall_Stats[23,6]