小编Seb*_*Seb的帖子

我需要提取字符串中的前2个字符以便稍后创建bin图分布.向量:

x <- c("75 to 79", "80 to 84", "85 to 89") 

我已经走到这一步了:

substrRight <- function(x, n){
  substr(x, nchar(x)-n, nchar(x))
}

调用功能

substrRight(x, 1)

响应

[1] "79" "84" "89"

需要打印最后2个字符而不是第一个字符.

[1] "75" "80" "85"

我正在尝试按项目规范化StrengthCode

例如

ID    Item    StrengthCode
7     A       1
7     A       5
7     A       7
8     B       1
8     B       3
9     A       5
9     A       3

我需要实现的是这样的:

ID    Item    StrengthCode    Nor
7     A       1    0.14
7     A       5    0.71
7     A       7    1
8     B       1    0.34
8     B       3    1
9     A       5    0.71
9     A       3    0.42

我尝试了这段代码,但是我被困了......如果你能帮助我会很棒!!!

normalit <- function(m){(m - min(m))/(max(m)-min(m))}

Tbl.Test <- Tbl.3.1 %>%
  group_by(ID, Item) %>%
  mutate(Nor = normalit(StregthCode))

我收到此错误:

强制引入的警告消息NAs