Подтвердить что ты не робот

Добавление символов в числовой столбец в области данных

У меня есть dataframe, как это:

  V1      V2      V3 
1  1 3423086 3423685 
2  1 3467184 3467723 
3  1 4115236 4115672 
4  1 5202437 5203057 
5  2 7132558 7133089 
6  2 7448688 7449283

Я хочу изменить столбец V1 и добавить chr перед номером. Точно так же:

  V1      V2      V3 
1  chr1 3423086 3423685 
2  chr1 3467184 3467723 
3  chr1 4115236 4115672 
4  chr1 5202437 5203057 
5  chr2 7132558 7133089 
6  chr2 7448688 7449283

Есть ли способ сделать это в R?

Ответ 1

Шаблон регулярного выражения "^" (вне любых скобок символьного класса) представляет точку непосредственно перед первым символом элемента "персонажа" (например, "строка" на других языках компьютера). Это просто заменяет начало каждого элемента "символ" в векторе с помощью стека "chr". Он неявно принуждает "числовое" входное значение к "символу", поэтому изменяет режим результата.

> dat$V1 <- sub("^", "chr", dat$V1 )
> dat
    V1      V2      V3
1 chr1 3423086 3423685
2 chr1 3467184 3467723
3 chr1 4115236 4115672
4 chr1 5202437 5203057
5 chr2 7132558 7133089
6 chr2 7448688 7449283

Может, конечно, использовать paste("chr", dat$V1, sep=""), но я думал, что решение регулярных выражений может быть более аккуратным.

Ответ 2

sprintf намного мощнее, чем простая конкатенация.

dat$V1 <- sprintf('chr%i', dat$V1)

Ответ 3

Мы также можем использовать interaction:

df$V1 <- interaction( "chr", df$V1, sep = "")
df

Или используя sqldf:

library(sqldf)    
df$V1 <- as.character(df$V1)
df$V1 <- sqldf("select 'chr'|| V1 as V1 from df")