第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全，請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問題，去搜搜看，總會(huì)有你想問的

計(jì)算唯一值

計(jì)算唯一值

長(zhǎng)風(fēng)秋雁 2019-12-10 10:21:01
假設(shè)我有：v = rep(c(1,2, 2, 2), 25)現(xiàn)在，我想計(jì)算每個(gè)唯一值出現(xiàn)的次數(shù)。unique(v) 返回唯一值是多少，但不是多少。> unique(v)[1] 1 2我想要能給我的東西length(v[v==1])[1] 25length(v[v==2])[1] 75但作為更一般的單行代碼:)有些類似（但不太完全）的東西：#<doesn't work right> length(v[v==unique(v)])
查看完整描述

3 回答

?
紅顏莎娜

TA貢獻(xiàn)1842條經(jīng)驗(yàn) 獲得超13個(gè)贊

也許桌子是你所追求的？


dummyData = rep(c(1,2, 2, 2), 25)


table(dummyData)

# dummyData

#  1  2 

# 25 75


## or another presentation of the same data

as.data.frame(table(dummyData))

#    dummyData Freq

#  1         1   25

#  2         2   75


查看完整回答
反對(duì) 回復(fù) 2019-12-10
?
幕布斯6054654

TA貢獻(xiàn)1876條經(jīng)驗(yàn) 獲得超7個(gè)贊

正如Chase所建議的，table（）函數(shù)是一個(gè)很好的方法。如果要分析大型數(shù)據(jù)集，另一種方法是在數(shù)據(jù)表包中使用.N函數(shù)。


確保通過以下方式安裝了數(shù)據(jù)表包


install.packages("data.table")

碼：


# Import the data.table package

library(data.table)


# Generate a data table object, which draws a number 10^7 times  

# from 1 to 10 with replacement

DT<-data.table(x=sample(1:10,1E7,TRUE))


# Count Frequency of each factor level

DT[,.N,by=x]


查看完整回答
反對(duì) 回復(fù) 2019-12-10
  • 3 回答
  • 0 關(guān)注
  • 553 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購(gòu)課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

 幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

 公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)