Как импортировать данные из файла ascii в вектор в R?

Question

Я не знаю, как импортировать данные из файла ASCII в вектор.Вот мои данные выглядят так:

42019 * 1 3738,937 21 * 1 3413,974 20 * 1 3439,52 3287,071 20 * 1 3078,413 3144,528 20 * 1 2695,402 2817,517 20 * 1 2360.609 2535,89920 * 1 1973.107 2423.964 20 * 1 1853.081 2405.671 20 * 1 1910.165 2377.648 20 * 1 2003.988 2587.324 21 * 1 2756.768 21 * 1 2759.812 21 * 1 2751.675 21 * 1 2805.15 21 * 1 2860.665 21 * 1 2977.085 21 * 1 3095.787 10473 *1 4208,778 21 * 1 4263,975 21 * 1 4409,382 21 * 1 4576,375 21 * 1 4310,54 21 * 1 3995,481 3698,043 20 * 1 3501,637 3549,6 20 * 1 3080,588 3484,296 20 * 1 2809,161 3449,817 20 * 1 2584,879 3279,022 4782,676 1980 221 282 281 1 227 282 285 1 *2219* 1 2150,003 3198,538 4964,336 19 * 1 2453,268 3326,228 4950,596 19 * 1 2572,416 3600,228 5072,902 19 * 1 2561,87 4009,568 5311,883 19 * 1 2778,983 4139,855 5447,728 19 * 1 2934,39 4152,131 5349,623 1917 3 172 282 282 192,132 1928,128 1948,125 282,128 221 281 281 281 281 281 281 285 221 285 221 285 225 281 285 221 281 285 221 285 221 285 221 285 221 285 221 285 221 285 221 225 221 221 285 221 225 221 221 225 225 1 195 192 1 192 1 19 19 1 19 19 1 19 19 1 19 19 1 19 19 1 19 19 1 19 19 1 19 19 1 19 19 1 19 19 1 19 19 1 191 191 191 1 192 1 19 5 19 19 1 1950,003 3198,538 4964,3361 2729,679 3995,736 5315,139 19 * 1 2791,181 3939,073 4855,432 19 * 1 2906,625 4063,82 4518 3243,637 18 * 1 2804,122 4068,833 4339,896 3472,643 18 * 1 2873,355 4011,656 4219,517 3815,508 18 * 1 3177,821 4065,067 4017,852 4094,735 18 * 1 3523,447 4123,344 3912,661 4196,315 18 * 1 3657,643 4033,419 3906,543 4135,80 38,5 7,37 35,318 351 383 35,332 35,132 35,332 35,132 35,31 35,31 35,31 35,31 35,31 35,31 35,31 35,31 35,31 35,31 35,31 35,31 35,332 35,31 35,31,336,336,336,336,336,336,336,336,336,336,31,318 3,368,331,317 351,317 35,31 35,3 или 3,3 (35,1) 35,31,338,338,338,315,317 (У) 35,31 35,5 Удара 3525,05,325,325,325,332,332,332,318,318,315,315,318,31,318,31,318,37,132,3 (только) (35) 3,15,35,338,315,315 (Ух))))))));3689.989 3705.094 3226.042 18 * 1 3430,077 3366,809 3930,563 3212,605 18 * 1 3404,816 3195,999 3901,077 3133,576 18 * 1 3373,697 3086,668 3754,917 3014,06 18 * 1 3264,212 2988,194 3597,519 2922,759 18 * 1 3248,592 2898,228 3355,479 2799,94 18 * 1 3344,334 2835,604 2973,876 2693,686 18 * 1 3286,128 2817,1122689,906 2621,489 16 * 1 4764,407 1 3171,498 2770,62 2608,038 2584,703 16 * 1 4462,878 1 3203,648 2696,728 2506,159 2577,2 16 * 1 4122,297 1 3148,35 2680,205 2488,023 2603,228 15 * 1 4091,906 27 026 2 522 282 025 282,225 2,225 5,225 032 2,206,232,215,216,232,216,216,216,216,216,232,237,232,137,215,216,132,216,116,216,216,216,132,216,216,132,288,132,216,216,131,216,131,216,131,216,216,216,216,131,131,216,131,131,216,216,277,177,189,188,177,477,416ебиная масса, равняется 2689,906 2621,489 16 * 1 4764,407 1 3171,498 2730,208,215,215 (2) 2 (5)))))))).* 1 3617,159

Обратите внимание, что 42019 * 1 означает, что 1 было повторено 42019 раз.Нет столбцов, только один столбец.

Я пробовал parse.SAScii и read.SASciifunction, но есть ошибка:

parse.SAScii("text2.data", beginline = 2)

x <- read.SAScii("text2.data", beginline = 2)

Error in if (max(asterisk_slash) < 0) SASinput[j] <- "" else SASinput[j] <- sub(substr(SASinput[j],  : 
  missing value where TRUE/FALSE needed

Answer 1

Я считаю, что вы хотите получить вектор, в котором случаи, например 42019 * 1, превращаются в повтор (14209), а случаи, такие как 3738.937, остаются прежними.

Если это так, это вариант:

string = "42019*1 3738.937 21*1 3413.974 20*1 3439.52 3287.071 20*1 3078.413 3144.528 20*1 2695.402 2817.517 20*1 2360.609 2535.899 20*1 1973.107 2423.964 20*1 1853.081 2405.671 20*1 1910.165 2377.648 20*1 2003.988 2587.324 21*1 2756.768 21*1 2759.812 21*1 2751.675 21*1 2805.15 21*1 2860.665 21*1 2977.085 21*1 3095.787 10473*1 4208.778 21*1 4263.975 21*1 4409.382 21*1 4576.375 21*1 4310.54 21*1 3995.481 3698.043 20*1 3501.637 3549.6 20*1 3080.588 3484.296 20*1 2809.161 3449.817 20*1 2584.879 3279.022 4782.676 19*1 2242.631 3180.007 4912.585 19*1 2150.003 3198.538 4964.336 19*1 2453.268 3326.228 4950.596 19*1 2572.416 3600.228 5072.902 19*1 2561.87 4009.568 5311.883 19*1 2778.983 4139.855 5447.728 19*1 2934.39 4152.131 5349.623 19*1 2914.206 4217.744 5426.702 19*1 2842.173 4228.848 5542.386 19*1 2729.679 3995.736 5315.139 19*1 2791.181 3939.073 4855.432 19*1 2906.625 4063.82 4518 3243.637 18*1 2804.122 4068.833 4339.896 3472.643 18*1 2873.355 4011.656 4219.517 3815.508 18*1 3177.821 4065.067 4017.852 4094.735 18*1 3523.447 4123.344 3912.661 4196.315 18*1 3657.643 4033.419 3906.543 4135.803 18*1 3692.156 3850.777 3795.754 3977.24 18*1 3689.029 3866.12 3570.128 3656.568 18*1 3631.752 3889.502 3514.744 3369.104 18*1 3511.714 3689.989 3705.094 3226.042 18*1 3430.077 3366.809 3930.563 3212.605 18*1 3404.816 3195.999 3901.077 3133.576 18*1 3373.697 3086.668 3754.917 3014.06 18*1 3264.212 2988.194 3597.519 2922.759 18*1 3248.592 2898.228 3355.479 2799.94 18*1 3344.334 2835.604 2973.876 2693.686 18*1 3286.128 2817.112 2689.906 2621.489 16*1 4764.407 1 3171.498 2770.62 2608.038 2584.703 16*1 4462.878 1 3203.648 2696.728 2506.159 2577.2 16*1 4122.297 1 3148.35 2680.205 2488.023 2603.228 15*1 4091.906 3782.092 1 2984.83 2694.59 2631.974 2647.052 15*1 3780.004 3512.631 1 2905.647 2722.086 2701.115 2732.39 15*1 3617.159"
splitted = as.list(strsplit(string," ")[[1]])

for(i in 1:length(splitted)){
  if(grepl("*",splitted[[i]],fixed=T)){
    aux = strsplit(splitted[[i]],"*",fixed=T)[[1]]
    splitted[[i]] = rep(as.numeric(aux[2]),as.numeric(aux[1]))
  }
  else{
    splitted[[i]] = as.numeric(splitted[[i]])  
  }
}