Wie teile ich ein Vektorelement in zwei Teile auf?

Question

Ich habe den folgenden Code:

file_list <- list.files(path=folder, pattern="*.txt") ##creates list of all txt. files in folder 

file_list 

o<- file_list[order(as.numeric(gsub(".+_(\\d+)\\.txt$", "\\1", file_list)))]## orders list in numerical order by ending 

r <- sapply(o, FUN = function(x){ 

    df = read.table(x, skip=1) ##x is the file name from list 

    mean(df$V4) 

}) ###takes mean of selected column from entire list and produces below output 

dies liefert die folgende Ausgabe:

172010_001_120VC_0.1_1100.txt 3.817672e-07 
172010_001_120VC_0.1_1080.txt 3.893099e-07 
172010_001_120VC_0.1_1090.txt 4.386539e-07 

Wie kann ich die Ausgabe in einen Vektor/Datenrahmen drehen waren x = die letzten Ziffern der Bezeichnung txt-Datei (1100, 1080, 1090 usw.) und y = der numerische Wert (3.817672e-07, 3.893099e-07, 4.386539e-07 usw.)

Answer 1

Da die Länge aller Vektorelemente in diesem Fall gleich ist, Sie können substr() Funktion verwenden (die inist NurPaket.) durch direkte Bereitstellung von Zeichenpositionen.

Ausgabe in Frage gegeben Erstellen

vec <- c("172010_001_120VC_0.1_1100.txt 3.817672e-07","172010_001_120VC_0.1_1080.txt 3.893099e-07","172010_001_120VC_0.1_1090.txt 4.386539e-07") 

Druckausgabe gegeben in Frage

vec 
# [1] "172010_001_120VC_0.1_1100.txt 3.817672e-07" 
# [2] "172010_001_120VC_0.1_1080.txt 3.893099e-07" 
# [3] "172010_001_120VC_0.1_1090.txt 4.386539e-07" 

gewünschtes Ergebnis mit substr() Funktion

df <- data.frame(x = substr(vec, 22, 25), y = substr(vec, 33, 44)) 
df 
#  x   y 
# 1 1100 3.817672e-07 
# 2 1080 3.893099e-07 
# 3 1090 4.386539e-07