R语言求教：如何用lapply将列表元素位数补齐

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

列表：list<- list(x = matrix(3:11, 3), y = matrix(1:12, nrow = 4))
        如何用lapply将每个元素下第三列一位数前置用0 ，sprintf("%02d",V3) 补齐为两位数，且输出仍为两个矩阵。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：lapply apply appl 如何用 R语言

1. mylist <- list(x = matrix(3:11, 3), y = matrix(1:12, nrow = 4))
   
2. 
   
3. myfun <- function(x) {
   
4.   x[, 3] <- sprintf("%02d", x[, 3])
   
5.   x
   
6. }
   
7. 
   
8. # 这种会改变原始对象的类型，使他变成一个有字符矩阵组成的列表，不能进行后续矩阵运算
   
9. lapply(mylist, myfun)
   
10. 
    
11. # 可以使用s3方法，写一个print函数,仅改变他输出的样子，不改变他本身类型
    
12. class(mylist) <- "test"
    
13. 
    
14. 
    
15. print.test <- function(x) {
    
16.   y <- list()
    
17.   for (i in seq_along(x)) {
    
18.     x[[i]][, 3] <- sprintf("%02d", x[[i]][, 3])
    
19.     y[[i]] <- x[[i]]
    
20.   }
    
21.   print(y)
    
22. }
    
23. 
    
24. mylist
    
25. mylist$x
    
26. mylist$y

复制代码