使用R语言读入一个txt文本后取出第1，2，15列后保存到原文本中

你好，以下是使用 R 语言读入一个 txt 文本后取出第 1，2，15 列后保存到原文本中的代码：

# 读入文本文件
data <- read.table("your_file_path.txt", header = TRUE, sep = "\t")

# 取出第 1，2，15 列数据
data_new <- data[, c(1, 2, 15)]

# 将新数据保存到原文本中
write.table(data_new, "your_file_path.txt", sep = "\t", append = TRUE, row.names = FALSE, col.names = FALSE)

其中，`your_file_path.txt` 是你要读入的 txt 文件路径。`header` 参数为 `TRUE` 表示第一行是列名。`sep` 参数表示文本文件中列之间的分隔符。`c(1, 2, 15)` 表示要取出的列编号。`append` 参数为 `TRUE` 表示将新数据添加到原文件的末尾。`row.names` 和 `col.names` 参数表示是否保留行名和列名。

相关问题

编写程序，要求读入一个英文文本行，将其中每个单词的第一个字母改成大写，然后输出此文本行（这里”单词“是指由空格隔开的字符串)。例如，若输入：I am a student to take the examinat1on则应输出：I Am A Student To Take The Examination .

好的，这是一个非常简单的程序，您可以使用 Python 语言来实现。以下是一个示例代码：

text = input("请输入一个英文文本行：")
words = text.split()  # 将文本行分割成单词列表

# 遍历单词列表，将每个单词的第一个字母改成大写
for i in range(len(words)):
    words[i] = words[i][0].upper() + words[i][1:]

# 将单词列表拼接成一个新的字符串
new_text = " ".join(words)

print(new_text)

解释一下代码：

1. 首先，我们使用 `input` 函数提示用户输入一个英文文本行，并将其赋值给变量 `text`。
2. 然后，我们使用 `split` 函数将文本行分割成单词列表，将其赋值给变量 `words`。
3. 接下来，我们使用一个 `for` 循环遍历单词列表，将每个单词的第一个字母改成大写。具体来说，我们使用字符串切片操作 `words[i][0]` 取出每个单词的第一个字母，然后使用 `upper` 方法将其转换成大写字母，再使用字符串切片操作 `words[i][1:]` 取出每个单词的第二个字母到最后一个字母，并将其与第一个字母拼接起来，组成一个新的单词。最后将这个新的单词赋值回单词列表中。
4. 最后，我们使用 `join` 函数将单词列表拼接成一个新的字符串，并将其赋值给变量 `new_text`。然后将这个新的字符串输出到屏幕上，即可完成程序。

%% 读入参数 data = readmatrix('C1_4_4.TXT'); %从C1_4_4.TXT文本中读取数据 data = data(1:101,:); data2 = importdata("C1_4_4.TXT"); local_data = data(:,2:3); task = data(2:end,4); tasknum = length(task); dist = zeros(tasknum+1,tasknum+1); for i = 1:tasknum+1 for j = 1:tasknum+1 dist(i,j) = sqrt(sum((local_data(i,:)-local_data(j,:)).^2)); end end maxload = data2.data(2); v = 44; runt = dist./v; timewindow = data(2:end,5:6); worktime = data(2:end,7); caldata.runt = runt; caldata.task = task; caldata.dist = dist; caldata.timewindow = timewindow; caldata.worktime = worktime; caldata.maxload = 100; caldata.car1num = 15;请写出上述伪代码

这段伪代码的功能是读取一个名为C1_4_4.TXT的文本文件，提取其中的数据并进行一些计算。具体实现步骤如下：

1. 读取C1_4_4.TXT文本文件中的数据，并将其存储在名为data的矩阵中。

2. 从data矩阵中取出前101行数据，存储在data变量中。

3. 使用importdata函数从C1_4_4.TXT文件中读取数据，并将其存储在data2变量中。

4. 从data矩阵中取出第2列和第3列数据，存储在local_data变量中。

5. 从data矩阵中取出第2行到最后一行、第4列的数据，存储在task变量中。

6. 计算task的长度，存储在tasknum变量中。

7. 创建一个大小为(tasknum+1)×(tasknum+1)的全0矩阵dist。

8. 使用两个for循环，计算dist矩阵中每个元素的值。

9. 从data2变量中取出第2个数据，存储在maxload变量中。

10. 将v赋值为44。

11. 计算runt矩阵，其值为dist矩阵中每个元素的值除以v。

12. 从data矩阵中取出第2行到最后一行、第5列到第6列的数据，存储在timewindow变量中。

13. 从data矩阵中取出第2行到最后一行、第7列的数据，存储在worktime变量中。

14. 将runt、task、dist、timewindow、worktime、maxload等变量存储在一个名为caldata的结构体中，其中car1num变量没有被定义。