SAS使用SQLDF转换为R转换

Question

感谢您使用SQLDF将以下SAS代码转换为R的某人。我正在努力更改数据类型并在一个步骤中应用子字符串功能。

同样，在第二步中，我不确定如何在另一个可以在稍后阶段使用的新字段中保存字段值。

 proc sql;
create table noodle as
select          MATRL_NBR,
             put(PLANT, z4.) as PLANT_NBR,
             PLANT_DESC,
             MFG_DT,
             input(substr(FISC_PD, 5, 4), best32.) as FISC_YR,
             input(substr(FISC_PD, 1, 3), best32.) as FISC_PD,
             input(substr(FISC_WK, 1, 3), best32.) as FISC_WK,
             PLANNED_ZNL,
             ACTUAL_ZNL,
             CRIT_SKU,
             IP_BRAND,
             IP_BU,
             CATG,
             MATRL_TYPE
from comb
;
quit;


proc sql noprint;
select          max(FISC_YR), max(FISC_WK)
into       :CURRENT_FISC_YR, :CURRENT_FISC_WK
from       noodle;
quit;

Answer 1

我认为以下将实现您想要的东西：

library(sdldf)

noodle <- sqldf("select MATRL_NBR
              ,rightstr('0000'||cast(PLANT as varchar(4)),4) as PLANT_NBR 
              ,PLANT_DESC
              ,MFG_DT
              ,cast(substr(FISC_PD,5,4) as int) as FISC_YR
              ,cast(substr(FISC_PD,1,3) as int) as FISC_PD
              ,cast(substr(FISC_WK,1,3) as int) as FISC_WK
              ,PLANNED_ZNL
              ,ACTUAL_ZNL
              ,CRIT_SKU
              ,IP_BRAND
              ,IP_BU
              ,CATG
              ,MATRL_TYPE
      
      from comb")

CURRENT_FISC_YR <- max(noodle$FISC_YR)
CURRENT_FISC_WK <- max(noodle$FISC_WK)

您可能需要将用作double或作为float而不是作为中的作为int cast（）功能取决于您需要的数字数据类型，fisc_yr，fisc_pd和fisc_wk。