R：根据数据框中的大小写分隔字符

Question

我需要将诸如“ AbiesAlba”，“ GenusSpecies”之类的名称列拆分为单独的“ Genus”，“ Species”列。

属种
冷杉
冷杉

需要是：

属种
冷杉冷杉
冷杉冷杉

我知道我需要使用类似于gsub（'（[[:: upper：]]）'，'\\ 1'，x）和某种形式的mutate，但是当我使用gsub命令时，它将所有内容拆分为一个向量数据帧。

Answer 1

x <- c('GenusSpecies',
       'AbiesAlba',
       'AbiesAlba')

Genus <- gsub('(.*)[A-Z].*','\\1',x)
Species <- gsub('.*([A-Z].*)','\\1',x)

df <- data.frame(Genus, Species, stringsAsFactors = FALSE)
df