在R中减去样本

在这段代码中，我选择了30个随机样本，从30个随机样本中抽取了15个样本

我一直在思考如何从30个样本中减去15个样本。即从b1985中减去s1985

有人能帮我吗

我的代码在下面

function(df, n) df[sample(nrow(df), n), , drop = FALSE]

sample.df(subset(df, YEAR == "1985"), 30)

b1985 <-sample.df(subset(df, YEAR == "1985"), 30)

s1985 <-sample.df(subset(b1985), 15)

sample.df(subset(df, YEAR == "1986"), 30)

b1986 <-sample.df(subset(df, YEAR == "1986"), 30)

s1986 <-sample.df(subset(b1986), 15)

函数（df，n）df[样本（nrow（df），n），drop=FALSE]
示例.df（子集（df，年份=“1985”），30）
b1985大家好，我已经知道怎么做减法了

重命名行，使其不是随机绘制的行
行名称（b1985）您能提供您的数据样本吗
dput（head（df））
并粘贴到这里。嘿，我算出来了，但如果你能告诉我如何在我的答案中乘以下面的两个和，并将其导出为新变量，我将不胜感激。数据集很大，因此这里是指向它的链接：