R “开发功能”；制表；

我跑

我没有得到预期的结果，这可能很简单，但对我来说不是真的。我试过这个：

for (element in tf)
{
+ b= max(table(x[element]))
+ print (b)
+ }

它工作正常，我得到了我所期望的，但如果我有大数据集，它真的很长而且不有趣。

你可以试试

> max(table(x[1:75]))
[1] 72
> max(table(x[76:99]))
[1] 11
> max(table(x[100:118]))
and so on ...........

---

tf您是否有任何模式可以剪切变量，即
1:75、76:99、100:118
；这只是一个总和=>1:75；1+75:75+24; 1+75+24:75+24+19等等……这很容易做到
tf带有“Map”的部件不起作用。您可以比
不起作用的部分具体一点吗
。我没有收到任何错误Map（函数（i，j）max（表（x[seq（i，j）]）），v2，v1）`如果您展示一个具有预期结果的可复制示例，它也会有所帮助。目前，
x
未显示。
> max(table(x[1:75]))
[1] 72
> max(table(x[76:99]))
[1] 11
> max(table(x[100:118]))
and so on ...........

 tf <- c(75, 24, 19, 1, 1)
 v1 <- cumsum(tf)
 v2 <- c(1,v1[-length(v1)]+1)
 Map(function(i,j) max(table(x[seq(i,j)])), v2, v1)