计数数据帧R中每行的值

时间:2019-09-17 08:49:19

标签: r

我知道,还有其他类似问题,但没有一个回答我的特定问题。

在数据框上,我需要计算第3列和第8列之间每行中的值数量。

我想要一个像Excel中一样的简单v3 [1] 1 4 2 5 3 6

<template>
  <div class="mt-5">
    <div class="card-header purple-background bord-top-lr-5">
      <h4 class="title-align font-montserrat text-light white-text-color">
        {{ items.count + ' results found' }}
      </h4>
    </div>
    <div class="card-body white-bg">
      <div class="grid-x grid-padding-x m-2 border-0">
        <div class="border-0 mb-2">
          <v-server-table
            url="/companies/search"
            :columns="columns"
            :options="options"
            class="table-header"
          >
            <div slot="company_name" class="m-3" slot-scope="props">
              <h5 class="title-align font-montserrat" style="color: #5b2557">
                <a :href="props.row.url" :title="props.row.name">
                  {{ props.row.name }}
                </a>
                ({{ $t('labels.frontend.companies.demontage') }})
              </h5>
              <div class="row">
                <div class="col">
                  <p
                    class="gray-text-color font-montserrat-thin font-weight-bold"
                  >
                    {{ props.row.address.street }}
                    {{ props.row.address.building_nr }},
                    {{ props.row.address.postal }},
                    {{ props.row.address.city }}, {{ props.row.address.state }},
                    {{ props.row.address.country }}
                  </p>
                </div>
                <div class="col ml-lg-5">
                  <p
                    class="font-montserrat-thin blue-light-color font-weight-bold"
                  >
                    T. {{ props.row.address.phone }}<br />
                    <a
                      :href="props.row.website"
                      target="_blank"
                      :title="props.row.name"
                      class="gray-text-color"
                    >
                      {{ $t('labels.frontend.companies.goTo') }}
                    </a>
                  </p>
                </div>
                <div class="col ml-lg-5">
                  <a
                    class="font-montserrat-regular"
                    href="#"
                    style="color: #74aee0"
                  >
                    {{ $t('labels.frontend.companies.moreInfo') }} »
                  </a>
                </div>
              </div>
              <button
                class="mb-3 blue-light-bg btn bord-rad-5 white-text-color font-montserrat-regular"
                href="#"
              >
                {{ $t('labels.frontend.companies.stock') }}
              </button>
              <br />
            </div>
          </v-server-table>
        </div>
      </div>
    </div>
  </div>
</template>
<script>
import Vue from 'vue'
import { ServerTable } from 'vue-tables-2'

Vue.use(ServerTable, {}, false, 'bootstrap4', 'default')

export default {
  name: 'SearchCompaniesTable',
  props: {
    companyName: {
      type: String,
      required: false,
      default: () => ''
    }
  },
  data() {
    return {
      total: 0,
      items: [],
      columns: ['company_name'],
      options: {
        headings: {
          remote_id: 'Document'
        },
        highlightMatches: true,
        pagination: {
          chunk: 10,
          edge: true,
          dropdown: false,
          nav: 'fixed'
        },
        perPage: 10,
        perPageValues: [10],
        preserveState: true,
        sortable: ['company_name'],
        filterable: ['company_name'],
        skin: 'table-bordered table-hover'
      },
      page: 1
    }
  },
  computed: {
    rows() {
      return Object.keys(this.items).length
    }
  },
  mounted() {
    axios.get('/companies/search').then(response => {
      this.items = response.data
    })
  }
}

如何在数据框“ NB.VAL”上创建此新列“ base_graphs$NB <- rowSums(!is.na(base_graphs)) # with this code, I count all values except NAs but I can't select specific columns ”?

2 个答案:

答案 0 :(得分:3)

您真的很亲密:

base_graphs$NB <- rowSums(!is.na(base_graphs[, 3:8]))

[, 3:8]子集并选择第3列到第8列。

答案 1 :(得分:0)

main: sub rsp, 8 mov esi, OFFSET FLAT:.LC0 mov edi, OFFSET FLAT:_ZSt4cout call std::basic_ostream<char, std::char_traits<char> >& std::operator<< <std::char_traits<char> >(std::basic_ostream<char, std::char_traits<char> >&, char const*) mov esi, OFFSET FLAT:.LC1 mov edi, OFFSET FLAT:_ZSt4cout call std::basic_ostream<char, std::char_traits<char> >& std::operator<< <std::char_traits<char> >(std::basic_ostream<char, std::char_traits<char> >&, char const*) mov esi, OFFSET FLAT:.LC1 mov edi, OFFSET FLAT:_ZSt4cout call std::basic_ostream<char, std::char_traits<char> >& std::operator<< <std::char_traits<char> >(std::basic_ostream<char, std::char_traits<char> >&, char const*) xor eax, eax add rsp, 8 ret _GLOBAL__sub_I_main: sub rsp, 8 mov edi, OFFSET FLAT:_ZStL8__ioinit call std::ios_base::Init::Init() [complete object constructor] mov edx, OFFSET FLAT:__dso_handle mov esi, OFFSET FLAT:_ZStL8__ioinit mov edi, OFFSET FLAT:_ZNSt8ios_base4InitD1Ev add rsp, 8 jmp __cxa_atexit 可以将功能应用于数据帧的每一行。试试:

apply
相关问题