なんか間違えてたっぽい・・・。瀬戸の花嫁は微妙な感じかも。一応スクリプト完成版。 # df: title, before.score, after.score calc.all <- function(df){ # create rank colnames(df) = c("title", "b", "a") df <- df[sort.list(df$b, dec=TRUE),] df <- …