1

私はRの初心者です。今回は、time、ipなどのデータを読み取る必要があります。

18:00:04.940864 129.63.50.235.53 > 129.63.71.70.1111:  udp 107
18:00:04.957456 129.63.80.240.161 > 129.63.152.10.39518:  udp 151
18:00:04.958432 129.63.152.10.39518 > 129.63.80.240.161:  udp 136 (DF)
18:00:04.963312 217.79.96.182.53 > 129.63.1.1.1564:  udp 48 (DF)
18:00:05.000976 129.63.50.235.1028 > 218.232.110.133.53:  udp 34
18:00:05.207888 129.63.50.235.1028 > 203.50.0.24.53:  udp 32

私は

read.table(file='sample.txt',head=F,'%H:%M:%S',sep='')

分離のタイプが少ないため、その時点で立ち往生しているよりも、スペース、'>'、および'：'最後に、そこに（DF）を含めることができるかどうかを決定する最後のベクトルです。

誰かが私にこの種のデータを解決するためのアイデアを教えてもらえますか？どうもありがとう

4

1 に答える 1

0

ここに力ずくのアプローチがあります。

tt <- read.table(header=FALSE, fill=TRUE, stringsAsFactors=FALSE,
text="18:00:04.940864 129.63.50.235.53 > 129.63.71.70.1111:  udp 107
18:00:04.957456 129.63.80.240.161 > 129.63.152.10.39518:  udp 151
18:00:04.958432 129.63.152.10.39518 > 129.63.80.240.161:  udp 136 (DF)
18:00:04.963312 217.79.96.182.53 > 129.63.1.1.1564:  udp 48 (DF)
18:00:05.000976 129.63.50.235.1028 > 218.232.110.133.53:  udp 34
18:00:05.207888 129.63.50.235.1028 > 203.50.0.24.53:  udp 32")

last <- apply(tt[-(1:4)], 1, paste, collapse=' ')
tt[,5] <- last
tt[,4] <- sub(':', '', tt[,4])
tt <- tt[c(1,2,4,5)]

> tt
##               V1                  V2                  V4           V5
## 1 18:00:04.940864    129.63.50.235.53   129.63.71.70.1111     udp 107 
## 2 18:00:04.957456   129.63.80.240.161 129.63.152.10.39518     udp 151 
## 3 18:00:04.958432 129.63.152.10.39518   129.63.80.240.161 udp 136 (DF)
## 4 18:00:04.963312    217.79.96.182.53     129.63.1.1.1564 udp  48 (DF)
## 5 18:00:05.000976  129.63.50.235.1028  218.232.110.133.53     udp  34 
## 6 18:00:05.207888  129.63.50.235.1028      203.50.0.24.53     udp  32
于 2013-01-05T14:34:43.187 に答える