在SAS或R中重命名重复变量

Question

我正试图编写一个代码来创建一个新的列，该列将用一个数字标记相应的化合物。我有在列表中重复的化合物，我需要用相同的数字来标记这些化合物，但是要用一个字母来分隔这些化合物。我不知道该怎么编码。谢谢，例子如下：

Fructose 1
Maltose  2
Sucrose  3
Sucrose  4

想要什么：

    Fructose 1
    Maltose 2
    Sucrose 3
    Sucrose 3b

我不能手工标记每个化合物，因为我有这么大的数据集。

Answer 1

下面是我如何使用R和data.table包来完成这个任务。

首先，我们将通过compound对数据进行(并排序)。然后，我们将创建自己的索引，并将字母添加到它的dupes (虽然不确定如何处理大于26的组)

library(data.table)
setkey(setDT(df), compound)[, indx := as.character(.GRP), by = compound]
df[duplicated(df), indx := paste0(indx, letters[seq_len(.N)])]
df
#    compound number indx
# 1: Fructose      1    1
# 2:  Maltose      2    2
# 3:  Sucrose      3    3
# 4:  Sucrose      4   3a

Answer 2

以下是您问题的解决方案：

1. 创建自定义格式以映射{1} -> {b}、{2} -> {c}等。
2. 按碳水化合物列对数据集进行排序。
3. 使用区间变量First.Carbohydrate，如果这是碳水化合物的第一个实例，它将等于1。
4. 使用计数器跟踪重复值的数量。
5. 现在使用自定义格式来，通过put函数:put(计数器，customFormat)将重复计数的转换为alph数值后缀。

您可以阅读有关按组进行数据步骤处理以提高您的SAS技能。

下面是完整的工作示例：

    data have;
        length Carb $10; 
        input Carb;
        datalines;
    Fructose
    Maltose 
    Sucrose 
    Sucrose 
    Sucrose 
    Pasta   
    Pasta   
    Rice   
    Rice 
    Rice
    Quinoa
    Bread
    ;

    proc format;
        value dupFormat
        1 = 'b'
        2 = 'c'
        3 = 'd'
        ;
    run;

    proc sort data=have;
        by Carb;
    run;

    data want(keep=Carb Number);
        length Carb $10;
        length Number $3;

        set have;
        by Carb;

        /* nCarbs is the number of distinct carbs written so far */
        if _n_=1 then nCarbs = 0;  

        if first.Carb then do;
            nCarbs+1;
            count_dup = 0; /* the number of duplicate records for the current cab */
            Number = left(put(nCarbs,3.)); 
        end;
        else do;
            count_dup+1;
            Number = cats(put(nCarbs,3.), put(count_dup, dupFormat.));
        end;
    run;

    proc print data=want;
    run;

Answer 3

使用@jaamor的数据，您可以在基r中这样做。

x <- c('Fructose','Maltose','Sucrose','Sucrose')
x <- c('Fructose','Maltose','Sucrose','Sucrose','Sucrose','Pasta',
       'Pasta','Rice','Rice','Rice','Quinoa','Bread')
y <- gsub('a', '', letters[ave(seq_along(x), x, FUN = seq_along)])

data.frame(x = x, y = paste0(cumsum(!duplicated(x)), y))

#           x  y
# 1  Fructose  1
# 2   Maltose  2
# 3   Sucrose  3
# 4   Sucrose 3b
# 5   Sucrose 3c
# 6     Pasta  4
# 7     Pasta 4b
# 8      Rice  5
# 9      Rice 5b
# 10     Rice 5c
# 11   Quinoa  6
# 12    Bread  7