Question

我读过.csv个文件，其中包含785行和24217列。

my_data <- read.csv("test.csv", header = FALSE)

我想隔离785行中值为6的列。所以我尝试了以下内容：

my_data[my_data[1:24217][785,] == 6]

其结果是混合列，就像在列表中一样。我怎样才能得到仍然与csv/my_data中的结构相似的结果结构。我想要的只是子集my_data，其中每列的第785行的值是6。

样本集：

      V1       V2       V3       V4    .   .   .     .    . N th Column
1   0.000000 0.000000 0.000000
2   0.000000 0.000000 0.000000
3   0.000000 0.000000 0.000000
4   0.000000 0.000000 0.000000
5   0.000000 0.000000 0.000000
6   0.000000 0.000000 0.000000
7   0.000000 0.000000 0.000000
8   0.000000 0.000000 0.000000
9   0.000000 0.000000 0.000000
10  0.000000 0.000000 0.000000
.
.
.
785  0.000000 6.000000 5.50000

正如您在上面的集合中看到的那样，785行和N列在我的情况下达到24217.我想根据第785行中的值对数据进行子集化。所以，我想分隔最后一个值为6的列（在785行中）。

Answer 1

import React from 'react';
import { render } from 'enzyme';
import FileUpload from '../Components/Elements/fileUpload';

describe('FileUpload component', ()=>{
    const wrapper = render(<FileUpload />);
    it('Test init status', function() {
        expect(wrapper.find('input').length).toBe(2);
        expect(wrapper.find('input').text()).toEqual('');
    });
});

更新：请求多个条件导致此答案

# Sample data looks like this.
# Multiple columns V1-VN (only 4 here for example)

V1 <- c(0, 0, 0, 0, 0, 0, 0)
V2 <- c(0, 0, 0, 0, 0, 0, 6)
V3 <- c(0, 0, 0, 0, 0, 0, 5.5)
V4 <- c(0, 0, 0, 0, 0, 0, 6)
df <- data.frame(V1, V2, V3, V4)

# You wants to subset the data by
# keeping the columns which have specific value (6)
# in a certain row (Row 7 here for simplicity)

newdf <- df[,df[7,]==6]

# So try this for your problem
newmy_data <- my_data[,my_data[785,]==6]

根据最后一行

1 个答案: