r - R，在使用 order 函数时获得一元运算符的无效参数

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)

标签： r

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

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