对不起,如果标题不清楚,我不知道该如何措辞。
我根据类别名称划分数据,然后将每只猫划分为不同的品牌。 每个品牌进一步细分,然后导出每个子组。这是两个不同品牌的代码的一部分。
#brand 1#
split$Cat_name$Brand1$C1`[split$Cat_name$Brand1$C1 >= 89300 & split$Cat_name$Brand1$C1 < 89500] <- 89300
split$Cat_name$Brand1$C1[split$Cat_name$Brand1$C1 >= 89500] <- paste("Others")
split$Cat_name$Brand1 <- split(split$Cat_name$Brand1, split$Cat_name$Brand1$C1, drop = TRUE)
#brand 2#
split$Cat_name$Brand2$C1`[split$Cat_name$Brand2$C1 >= 89300 & split$Cat_name$Brand2$C1 < 89500] <- 89300
split$Cat_name$Brand2$C1[split$Cat_name$Brand2$C1 >= 89500] <- paste("Others")
split$Cat_name$Brand2 <- split(split$Cat_name$Brand2, split$Cat_name$Brand2$C1, drop = TRUE)
因为有很多品牌,所以每次更改名称都需要花费一些时间。因此,我正在寻找一种加快处理速度的方法。我曾经有一个想法是使用变量,像这样:
N = brand1
split$Cat_name$N$C1`[split$Cat_name$N$C1 >= 89300 & split$Cat_name$N$C1 < 89500] <- 89300
split$Cat_name$N$C1[split$Cat_name$N$C1 >= 89500] <- paste("Others")
split$Cat_name$N <- split(split$Cat_name$N, split$Cat_name$N$C1, drop = TRUE)
这样,我一次更改了变量,下面的整个代码也随之更改。我这样尝试过,但是没有用。
你们中的任何人都知道我该怎么做吗?