计算不同因子水平的观察量

编程问答 2022-06-09

问题描述

我正在处理视频游戏数据集，并且想要一个可变列来计算为每个平台生产的游戏数量。我按年份订购，因此理想情况下，它将是每个平台的累计总超时时间。这是我尝试但无法使用的功能。

counting  <- function(w) {
 i = 0
 j = 0
 k = 0
 l = 0
 m = 0
for (val in w) {
 if(val == "PC"){
  i = i+1
  i
 } else if (val == "XBox"){
  j = j+1
  j
 }else if (val == "Nintendo"){
  k = k+1
  k
 } else if (val == "Playstation"){
  l = l+1
  l
} else if (val == "Others"){
  m = m+1
  m
 }
 }
}
my_vector2 <- sapply(data$Platform.type,counting)

我的数据的一个例子是

structure(list(Rank = c(5337,7969,8513,8559,15641,18600),Genre = c("Role-Playing","Adventure","Action","Role-Playing","Misc","Racing"),Platform = structure(c(48L,56L,1L,53L,48L),.Label = c("2600","3DO","3DS","5200","7800","Aco","ACPC","AJ","Amig","And","ApII","Arc","AST","BBCM","BRW","C128","C64","CD32","CDi","DC","DS","DSi","DSiW","FMT","GB","GBA","GBC","GC","GEN","GG","GIZ","Int","iOS","iQue","Linux","Lynx","Mob","MS","MSD","MSX","N64","nes","NG","NGage","NS","OSX","Ouya","PC","PCE","PCFX","PS","PS2","ps3","PS4","PSN","PSP","PSV","S32X","SAT","SCD","Snes","TG16","VB","VC","Wii","WiiU","WinP","WS","WW","X360","XB","XBL","XOne","ZXS"),class = "factor"),Platform.type = c("PC","Playstation","Others","PC")),row.names = c(NA,-6L),class = c("tbl_df","tbl","data.frame"))

对于前6行，我希望我的计数函数返回

（1、1、1、2、3、2 ...）。

有人有什么建议吗？我得到的只是一个很长的null向量。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

countingcountingif-statementrr