R语言将数据转化为dataframe数据教程：实战示例

本教程将演示如何使用R语言将以下数据转化为dataframe数据。

data1 <- c('   SLB  SLMH  SLLL  SDUL  SSAT  SRGF  SSKS  SBDM  SLOC  SLCL  SLSI  SLCF  SLNI  SLHW  SLHB  SCEC  SADC                                                                                                  ',
           '     5 A     0.101 0.184 0.385  1.00  2.01  1.34  3.50 17.00 19.00 -99.0  0.12  7.40 -99.0  10.0 -99.0                                                                                                  ',
           '    15 A     0.107 0.192 0.385  0.85  1.79  1.36  3.00 18.00 18.00 -99.0  0.09  7.40 -99.0   9.0 -99.0                                                                                                  ',
           '    30 AB    0.125 0.214 0.387  0.70  1.28  1.39  2.30 21.00 17.00 -99.0  0.07  7.50 -99.0   8.0 -99.0                                                                                                  ',
           '    60 BA    0.137 0.227 0.388  0.50  1.02  1.44  1.50 23.00 16.00 -99.0  0.06  7.60 -99.0   9.0 -99.0                                                                                                  ',
           '   100 B     0.137 0.227 0.388  0.00  1.02  1.50  0.90 23.00 16.00 -99.0  0.00  7.80 -99.0   9.0 -99.0                                                                                                  ',
           '   200 BC    0.125 0.209 0.385  0.00  1.33  1.55  0.50 21.00 15.00 -99.0  0.00  8.00 -99.0   9.0 -99.0 ')

df <- read.table(text = data1, header = FALSE, stringsAsFactors = FALSE, strip.white = TRUE)

# 修改列名colnames(df) <- c('code', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P')

# 删除无用的行df <- df[-1, ]

# 将code列的前面的空格去掉df$code <- trimws(df$code, which = 'left')

# 将A列的值转化为数字df$A <- as.numeric(df$A)

# 查看结果