Question

我实际上做了3次完全相同的操作，并且在添加新变量时出现此错误

Error in -emps$EV : invalid argument to unary operator

导致此问题的代码块是

evps<-aggregate(EV~player,s1k,mean)
sort2<-evps[order(-evps$EV),]
head(sort2,10)

s1k$EM<-s1k$points-s1k$EV
emps<-aggregate(EM~player,s1k,mean)
sort3<-emps[order(-emps$EV),]
head(sort3,10)

第一个列表的工作方式像一个超级按钮，但是此后相同的代码会导致错误。

此特定行导致错误

sort3<-emps[order(-emps$EV),]

如何解决/解决这个问题？

完整代码

url <- getURL("https://raw.githubusercontent.com/M-ttM/Basketball/master/class.csv")
shots <- read.csv(text = url)
shots$make<-shots$points>0
shots2<-shots[which(!(shots$player=="Luc Richard Mbah a Moute")),]
fit1<-glm(make~factor(type)+factor(period), data=shots2,family="binomial")
summary(fit1)
shots2$makeodds<-fitted(fit1)
shots2$EV<-shots2$makeodds*ifelse(shots2$type=="3pt",3,2)
shots3<-shots2[which(shots2$y>7),]
locmakes<-data.frame(table(shots3[, c("x", "y")]))

s1k <- shots2[with(shots2, player %in% names(which(table(player)>=1000))), ]

pps<-aggregate(points~player,s1k,mean)
sort<-pps[order(-PPS$points),]
head(sort,10)

evps<-aggregate(EV~player,s1k,mean)
sort2<-evps[order(-evps$EV),]
head(sort2,10)

s1k$EM<-s1k$points-s1k$EV
emps<-aggregate(EM~player,s1k,mean)
sort3<-emps[order(-emps$EV),]
head(sort3,10)

Answer 1

尝试对包含chr类型数据的列进行排序时，似乎会出现错误消息。可能的解决方法是使用反向函数rev()而不是减号，例如：

column_a = c("a","a","b","b","c","c")
column_b = seq(6)
df = data.frame(column_a, column_b)
df$column_a = as.character(df$column_a)

df[with(df, order(-column_a, column_b)),]
> Error in -column_a : invalid argument to unary operator

df[with(df, order(rev(column_a), column_b)),]
  column_a column_b
5        c        5
6        c        6
3        b        3
4        b        4
1        a        1
2        a        2

让我知道它是否适合您的情况。

Answer 2

在这一行上，emps$EV不存在。

s1k$EM<-s1k$points-s1k$EV
emps<-aggregate(EM~player,s1k,mean)
sort3<-emps[order(-emps$EV),]
head(sort3,10)

您可能是想

s1k$EM<-s1k$points-s1k$EV
emps<-aggregate(EM~player,s1k,mean)
sort3<-emps[order(-emps$EM),]
head(sort3,10)

R，在使用订单函数时，向一元运算符获取无效参数

2 个答案: