我们可以不迭代列表，而是迭代列表的名称，这样在将名称粘贴在一起时可以有更好的控制。
这是根据您的尝试修改的：

setNames(lapply(names(l), 
                \(x) l[[x]] %>% `row.names<-` (paste(x, rownames(l[[x]]), sep = "."))), 
         names(l))

$a
    col
a.k   1
a.l   2
a.m   3

$b
    col
b.o   4
b.p   5
b.r   6

使用mapply的方法

mapply(function(lis, nm){rownames(lis) <- paste0(nm, ".", rownames(lis))
    list(lis)},
  dlis, names(dlis))
$a
    col
a.k   1
a.l   2
a.m   3

$b
    col
b.o   4
b.p   5
b.r   6

数据

dlis <- list(a = structure(list(col = c(1, 2, 3)), class = "data.frame", row.names = c("k",
"l", "m")), b = structure(list(col = c(4, 5, 6)), class = "data.frame", row.names = c("o",
"p", "r")))

1）rbind使用rbind创建具有所需行名称的单个数据框，然后将其拆分回原始数据框。

split(do.call("rbind", l), rep(names(l), sapply(l, nrow)))

2）数据.帧使用data.frame及其row.names=参数以避免row.names<-

rnames <- function(x, nm) data.frame(x, row.names = paste0(nm, ".", rownames(x)))
Map(rnames, l, names(l))

3）for使用for循环创建ll

ll <- l
for(nm in names(ll)) rownames(ll[[nm]]) <- paste0(nm, ".", rownames(ll[[nm]]))