1000个苹果，每9个抽1个，抽30个，那也就用到9*30=270，跟1000有什么关系？
#假设apple原先是按顺序排的>apple
[1] 1 2 3 4 ...
#首先将1000个苹果打乱顺序
>apple <- apple[sample(1000)] apple
[1] 528 376 9 231 ...
#然后写个循环
> i <- 1 # 这是抽样范围的起点
> output <- vector() # 存储最后抽出来的样本
> while (count != 30){
+ temp <- sample(apple[i : (i + 8)] , 1) # 在apple的第i到第i+8之间抽1个
+ output <- c(output, temp) # 把结果存下来
+ i <- i + 9 # 重新设定起点
+ count <- count + 1
}
运行完看output
Mac R加载Excel文件，和win系统电脑差不多，只是可能会中文乱码，只需要输入程序即可：install.packages('xslx')library(xlsx)Sys.setlocale("LC_ALL", "zh_cn.utf-8")a=read.xlsx2('d:/1.xlsx',1,header=F)r语言画苹果的方法如下：1、windows上，打开一个一个图形界面，勾选历史——记录。然后点击菜单中的上（下）一个即可。
2、使用函数dev.new()、dev.next()、dev.prev()、dev.set()、dev.off()同时打开多个图形窗口。
