dat <- data.frame(
V1=c(1,3,4,NA,NA,NA,NA,NA,NA),
V2=c(2,5,6,8,9,12,NA,NA,NA),
V3=c(7,10,11,20,23,38,40,41,50)
)
apply(dat, 2, function(x, ratio = 1/3){
# 本栏哪些不是 NA
thisCol.is.not.NA <- !is.na(x)
# 本栏可抽几次
thisCol.length <- round(sum(thisCol.is.not.NA) * ratio)
# 把抽出的传出去
return(sample(x[thisCol.is.not.NA], thisCol.length))
})
其实和 C 板主写的是一样的，帮填注解而已。
※ 引述《gbd37 (有够瞎)》之铭言：
: [问题类型]:
: 程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
: [软件熟悉度]:
: 入门(写过其他程式，只是对语法不熟悉)
: [问题叙述]:
: 想要使用apply函数来抽样，依"比例"抽每行里所含有的数
: 范例是我举例的资料，第一行只有3个数字，第二行6个，第三行9个
: 我想依1/3的比例在第一行抽1个数字，第二行抽2个，第三行抽3个
: 但就在size那格我不知道该怎么打，麻烦指导
: 谢谢
: [程式范例]:
: http://pastie.org/10548085
: [关键字]:
: apply sample