R文字操作 [英] R text manipulation

问题描述

我有一个如下数据框。我想采用ww1列并按如下方式创建新列newww1：

I have a dataframe as below. I want to take ww1 column and create a new column newww1 as follows:

我的Excel公式为

=2012&TEXT((LEFT(201438,4)-2012)*53+RIGHT(201438,2),"0000")

其中，我将使用ww1列中的值代替201438

where instead of 201438 I will have a value from column ww1

我的公式的解释是：

take left 4 characters of ww1
subtract 2012 from them
multiply answer by 53
add answer to right 2 characters of ww1
print answer in "0000" format
concatenate that answer with 2012.

我的数据

PRODUCT=c(rep("A",4),rep("B",2))
ww1=c(201438,201440,201444,201446,201411,201412)
ww2=ww1-6
DIFF=rep(6,6)
DEMAND=rep(100,6)

df=data.frame(PRODUCT,ww1,ww2,DIFF,DEMAND)

df

  PRODUCT    ww1    ww2 DIFF DEMAND
1       A 201438 201432    6    100
2       A 201440 201434    6    100
3       A 201444 201438    6    100
4       A 201446 201440    6    100
5       B 201411 201405    6    100
6       B 201412 201406    6    100

这是我的数据最终显示方式

This is how my data will look at the end

    PRODUCT ww1 ww2 DIFF    DEMAND  newww1
1   A   201438  201432  6   100 20120144
2   A   201440  201434  6   100 20120146
3   A   201444  201438  6   100 20120150
4   A   201446  201440  6   100 20120152
5   B   201411  201405  6   100 20120117
6   B   201412  201406  6   100 20120118

推荐答案

df$newww1 = paste0('2012', sprintf('%04d', 
                    53 * (as.numeric(substr(df$ww1, 1, 4)) - 2012) + 
                          as.numeric(substr(df$ww1, 5, 6))
                         )
                  )

这篇关于R文字操作的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！