小编Cas*_*gua的帖子

我想要做的是通过在实际变量中创建文本来更改按钮内的文本.

像这样的东西:

<button type=button>status</button>

但它不是一个字符串,而是一个变量:

var status = 'on';

我正在处理一个大型数据框，其中包含一个串联向量，该向量中包含几条信息。我需要提取这些值进行分析，这可以使用 substr() 函数来完成，但观察结果的长度不同，这使得这不理想。虽然我有一些工作代码，但数据集的大小意味着需要相当长的时间来处理，并且想知道是否有更好的方法。

例如，“97110770”的 8 位数据点包含以下信息

• 时间：97 人：11077 地点：0

但有些值是 9 位数字，例如“114123411”，其中：

• 时间：114，人数：12341，地点：1

为了解决这个问题，我想在较小的变量前面添加一个“0”，这样它们的长度就相同（时间值后面的数字一致，所以它可以正常工作）并想出了以下代码：

（数据框：data，感兴趣的向量speakerid：）

congv <- vector(mode = "numeric")
memberidv <- vector(mode = "numeric")
chamberv <- vector(mode = "numeric")

for (i in 1:length(data$speakerid)) {
  if(nchar(data$speakerid[i]) == 8) {
    data$speakerid[i] = paste0("0", data$speakerid[i])
  }
  
  congv <- append(congv, substr(data$speakerid[i], 1, 3) )
  memberidv <- append(memberidv, substr(data$speakerid[i], 4, 8))
  chamberv <- append(chamberv, substr(data$speakerid[i], 9, 9))
}

data <- cbind(data, cong = congv, memberid = memberidv, chamber = chamberv) …