英文:
reading data file containing multiple ID's into different csvs
问题
以下是您要翻译的内容：
给定以下数据结构的文件：
FIXED=0LINES=1POINTS=5390 397390 396389 395389 394388 393IMAGE=Name1.jpgID=1FIXED=0LINES=1POINTS=4255 503256 502256 501256 500IMAGE=Name2.jpgID=2FIXED=0LINES=1POINTS=6262 431262 430262 429262 428262 427262 426IMAGE=Name3.jpgID=3
其中：
FIXED和ID之间的行属于一个个体- 数字表示两列变量
我们如何读取数据，然后转换为单独的 .csv 文件，其中：
- 每个 .csv 的名称是
IMAGE=后面的名称，即 Name1, Name2, Name3... Name1.csv的第一列数据是数字的第一列（390 390 389 389 388）Name1.csv的第二列数据是数字的第二列（397 396 395 394 393）- 对于
Name2.csv、Name3.csv等都是相同的方式 FIXED=0、LINES=1、POINTS=5、ID=1可以忽略不计
请注意，POINTS 和 IMAGE 之间的行数不固定。
英文:
Given a file with the following data structure:
FIXED=0LINES=1POINTS=5390 397390 396389 395389 394388 393IMAGE=Name1.jpgID=1FIXED=0LINES=1POINTS=4255 503256 502256 501256 500IMAGE=Name2.jpgID=2FIXED=0LINES=1POINTS=6262 431262 430262 429262 428262 427262 426IMAGE=Name3.jpgID=3
Were:
- The lines between
FIXEDandIDbelong to an individual - The numbers represent two columns of variables
How would we read in the data and then transform into individual .csv files were:
- The name of each .csv is the line after
IMAGE=Name1, Name2, Name3... - First column of data of
Name1.csvis the first column of numbers (390 390 389 389 388) - Second column of data of
Name1.csvis the second column of numbers (397 396 395 394 393) - The same for
Name2.csv,Name3.csv.... FIXED=0,LINES=1,POINTS=5,ID=1can be dispensed
Please note that the number of rows between POINTS and IMAGE is not contant
答案1
得分: 1
这是你可以尝试的方法：
library(stringr)# 从文件中读取数据data <- readLines("your_file.txt")# 初始化变量current_individual <- NULLcurrent_points <- NULLcurrent_data <- NULL# 处理数据的每一行for (line in data) {# 检查行是否以"IMAGE="开头if (str_starts(line, "IMAGE=")) {# 从行中提取个体名称individual_name <- str_remove(line, "IMAGE=")individual_name <- str_remove(individual_name, ".jpg")# 如果存在数据，将其保存到CSV文件中if (!is.null(current_individual) && !is.null(current_data)) {csv_file <- paste0(current_individual, ".csv")write.csv(current_data, file = csv_file, row.names = FALSE)}# 初始化新个体的变量current_individual <- individual_namecurrent_points <- NULLcurrent_data <- NULL} else if (str_starts(line, "POINTS=")) {# 从行中提取点数num_points <- as.numeric(str_remove(line, "POINTS="))# 初始化点数的变量current_points <- num_pointscurrent_data <- matrix(nrow = num_points, ncol = 2)} else if (str_detect(line, "\\d+ \\d+")) {# 从行中提取两个数字numbers <- str_split(line, " ")[[1]]# 将数字添加到当前数据中current_data <- rbind(current_data, as.numeric(numbers))}}# 将最后一个个体的数据保存到CSV文件中if (!is.null(current_individual) && !is.null(current_data)) {csv_file <- paste0(current_individual, ".csv")write.csv(current_data, file = csv_file, row.names = FALSE)}
这是你提供的R代码的翻译部分。
英文:
You could try this method:
library(stringr)# Read the data from filedata <- readLines("your_file.txt")# Initialize variablescurrent_individual <- NULLcurrent_points <- NULLcurrent_data <- NULL# Process each line of the datafor (line in data) {# Check if the line starts with "IMAGE="if (str_starts(line, "IMAGE=")) {# Extract the individual name from the lineindividual_name <- str_remove(line, "IMAGE=")individual_name <- str_remove(individual_name, ".jpg")# If there is existing data, save it to a CSV fileif (!is.null(current_individual) && !is.null(current_data)) {csv_file <- paste0(current_individual, ".csv")write.csv(current_data, file = csv_file, row.names = FALSE)}# Initialize variables for the new individualcurrent_individual <- individual_namecurrent_points <- NULLcurrent_data <- NULL} else if (str_starts(line, "POINTS=")) {# Extract the number of points from the linenum_points <- as.numeric(str_remove(line, "POINTS="))# Initialize variables for the pointscurrent_points <- num_pointscurrent_data <- matrix(nrow = num_points, ncol = 2)} else if (str_detect(line, "\\d+ \\d+")) {# Extract the two numbers from the linenumbers <- str_split(line, " ")[[1]]# Append the numbers to the current datacurrent_data <- rbind(current_data, as.numeric(numbers))}}# Save the last individual's data to a CSV fileif (!is.null(current_individual) && !is.null(current_data)) {csv_file <- paste0(current_individual, ".csv")write.csv(current_data, file = csv_file, row.names = FALSE)}
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论