小编Mam*_*ath的帖子

我想对R中的字符列表执行操作，如下所述：

1. 仅保留“-”之后的内容
2. 然后只保留剩余的前四个字符（如果其长度小于四个，则用'J'完成）
3. 把所有东西都大写

Python 中的示例

lt = ['LTA-Yokudo', 'LTA-Luo', 'LTA-Kawasaki']
[str(x).split('-')[1][:4].upper().ljust(4, 'J') for x in lt]

预期结果

['YOKU', 'LUOJ', 'KAWA'] # in Python
c('YOKU', 'LUOJ', 'KAWA') # in R

请注意，列表中的字符串将始终包含字符“-”。

在 R 中这样做的最佳解决方案是什么？
谢谢