计算lapply中条件的出现次数
计算lapply中条件的出现次数是一个涉及到编程和数据处理的问题。在这里，我们将使用R语言来演示如何计算lapply中条件的出现次数。
首先，我们需要创建一个包含数据的向量。例如，我们可以创建一个包含1到10的数字向量：
data <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)接下来，我们可以使用lapply函数来应用一个函数到数据向量中的每个元素。在这个例子中，我们将使用一个简单的函数来检查数字是否为偶数，并返回一个逻辑向量，表示每个元素是否为偶数：
even_numbers <- lapply(data, function(x) x %% 2 == 0)现在，我们可以使用R中的sum函数来计算逻辑向量中TRUE值的数量，从而得到条件的出现次数：
count <- sum(unlist(even_numbers))最后，我们可以打印出条件的出现次数：
print(count)这个例子中，条件的出现次数应该是5，因为在1到10之间有5个偶数。
总结一下，我们使用lapply函数来应用一个函数到数据向量中的每个元素，然后使用sum函数来计算逻辑向量中TRUE值的数量，从而得到条件的出现次数。
相关·内容
我要计算名为->的列表中出现NULL的次数 wallet_to_tx_text_json$txs$outputs 为此，我尝试了length(is.NULL(wallet_to_tx_text_json$txs$outputs))，但即使有7个NULL，它也会返回1 MWE install.packages('httr')
require(httr)
install.packages('jsonlite')
require(jsonlite)
caller <- "myemail@add"
i<-"091bc8fe2
浏览 10提问于2020-05-02得票数 0
回答已采纳
3回答
我有一个很长的列表，其中包含不同数量的元素，这些元素也可以在同一字段中重复出现。
这是前五行的示例：
A <- list(c("JAMES","CHARLES","JAMES","RICHARD"),
c("JOHN","ROBERT","CHARLES"),
c("CHARLES","WILLIAM","CHARLES","MICHAEL","WILLIAM
浏览 3提问于2012-06-15得票数 4
回答已采纳
2回答
我有如下所示的数据：
df = structure(list(`1` = c(-1, NA, NA, NA, -1, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA), `2` = c(NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_), `3` = c(NA_real_, NA_real_,
NA_real_,
浏览 2提问于2020-05-25得票数 1
回答已采纳
我想要计算以下字符串中每个字符的出现次数，并将结果输出为字符字符格式，小写，并按字符排序。
"Hello World !"
d 1 e 1 h 1 l 3 o 2 r 1 w 1 ! 1
浏览 0提问于2017-03-18得票数 1
1回答
我有一个统计矩阵，叫做T_{i，j}。然后我模拟了1000个样本。我想使用1000个样本来构建一个分布，然后计算我观察到的T_{i，j}的p值。
示例T_{i，j}矩阵如下所示：
V12 V13 V22 V23 V117 V146
V12 0.009900990 0.008281829 0.01490863 0.01548161 0.01342882 0.01287918
V13 0.008281829 0.031250000 0.04367911 0.04597988 0.03876530 0.0318
浏览 1提问于2013-03-11得票数 0
回答已采纳
2回答
从随机的数字序列{"1"，"2"，"3"，"4"，"5" }，它被要求确定3个连续数字的组出现的次数，这意味着，已经用基数=c ("1"，"2"，"3"，"4"，"5")的基数生成的次数{"123"，"234"，"345“}。 # I undertand that I have generate a sample with 5 numbers
a<-c(sample(1:5,5))
a
#
浏览 9提问于2021-04-22得票数 0
回答已采纳
2回答
我试图将一个字符值"C“匹配到一个dataframe中的多列。这是框架的一部分：
X1 X2
1 F F
2 C C
3 D D
4 A# A#
下面是当我试图匹配值“C”时会发生的情况：
> "C" %in% frame[, 1]
[1] TRUE
> "C" %in% frame[, 1:2]
[1] FALSE
考虑到两列中都有"C“，我不知道为什么返回false。是否有一个函数或运算符可以测试一个值是否存在于多个列中？我的目标是创建一个函数，该函数可以在指定的列中求和字符值(如"C“)的次数。
浏览 7提问于2015-04-11得票数 1
回答已采纳
从键盘输入一个正整数number，求其中含有指定数字digit的个数。例如：从键盘输入正整数number=1222,若digit=2，则1223中含有 3个2，要求用函数实现。
比如，输入“1222,2”，显示 ：2出现了3次；输入“1234,6”，显示： 6出现了0次
浏览 853提问于2021-10-11
例如，在这个给定的数据集中，我希望得到每个变量的最佳值，这些变量将产生“百分比”的预置值:例如，我需要“百分比”的值为>=0.7，因此在这种情况下，结果应该是：
birds >=5,1<wolfs<=3 , 2<=snakes <=4
示例数据集：
dat <- read.table(text = "birds wolfs snakes percentage
3 8 7 0.50
1 2 3 0.33
5 1
浏览 5提问于2014-05-28得票数 0
回答已采纳
我做了搜索，发现了几个类似的问题，但我仍然没有正确理解这一点。 我有一个包含ID、Date和Text列的数据帧。 df <- data.frame(ID = c('1','2','1'),
date = c('11/12', '11/13', '11/14'),
text = c('wow amazing', 'test string', 'thank you wow'))
df$te
浏览 15提问于2019-12-20得票数 0
我找不到答案--如何计算数据帧中的单词，并排除是否找到其他单词。下面是df：
words <- c("INSTANCE find", "LA LA LA", "instance during",
"instance", "instance", "instance", "find instance")
df <- data.frame(words)
df$words_count <- grepl("instance", df$w
浏览 2提问于2018-04-03得票数 0
回答已采纳
我想统计银行在不同表中的出现次数，并在FinalTable的相应列中更新。
BankTable：
BankName ErrorCode
SBI 200
ICICI 200
SBI 400
SBI 500
SBI 503
ATMTable：
BankName ErrorCode
ICICI 200
ICICI 400
ICICI 400
SBI 500
SBI 503
MitraTable：
BankN
浏览 2提问于2017-03-29得票数 0
2回答
我有一个有20个变量的tibble。到目前为止，我一直在使用这个管道来找出哪一个值在一个列中出现不止一次
as_tibble(iris) %>% group_by(Petal.Length) %>% summarise(n=sum(n())) %>% filter(n>1)
我很惊讶，如果我能写一行，可以循环通过所有的列，并返回20个不同的tibbles (或多少，我在未来需要)，以同样的方式，上面的管道将返回一只老虎。我试着写我自己的循环，但我没有成功，我是相当新的。
虹膜示例数据集有5列，因此可以随意使用5列给出答案。
谢谢!
浏览 8提问于2022-01-09得票数 0
回答已采纳
2回答
我不久前刚刚开始使用R，作为Excel的替代品。我处理的数据库非常大，我需要一个新的工具来更好地使用它们。我设法在这个网站上找到了很多关于R的答案，这些答案帮助我构建了我的脚本，但对于一种特定类型的分析，我无法找到任何确凿的答案。
我的数据如下所示：
Col1 Col2 Col3 ... Col50
M 18-24 Single ... Employed
F 18-24 Married ... Unemployed
F Under 18 Single ... Employed
通常，我处理的数据库有100,000行和30
浏览 0提问于2012-11-10得票数 2
回答已采纳
1回答
我正在寻找一种方法来呈现一个自定义变量，该变量是我从一个函数中设置的，每当单击Card按钮时，该变量都会进入Modal的主体，该主体应该动态包含该特定变量的值。 包含所有内容的主要组件： export function OrdiniPrecedenti({ navigation }) {
const [visible, setVisible] = useState(false);
var egDetails = ""
function showModal(details){
setVisible(true)
egDetails = details
}
const hi
浏览 41提问于2020-12-07得票数 0
1回答
如何在列表的每个数据帧中重复并绑定一行数据帧n次？因此，以下面的列表为例： [[1]]
x z y
1 2 3
[[2]]
x z y
4 5 6 如果n为1，则这是所需的输出： [[1]]
x z y
1 2 3
1 2 3
[[2]]
x z y
4 5 6
4 5 6 数据： list1 <- data.frame("x" = 1, "z" = 2, "y" = 3)
list2 <- data.frame("x" = 4, "z" = 5, "y&#
浏览 24提问于2019-03-24得票数 1
回答已采纳
1回答
我有一个R列表，它有不同长度的数字向量。就像这样。
l = list(a = c(0, 1, 2), b = c(0, 1), c = c(0, 1, NA), d = c(0, 1, 5))
我希望标识具有0、1或NA值的向量，因此可以将其转换为逻辑向量。在上面的例子中，我将识别向量b和c。
为了做到这一点，我要尝试像这样的东西。
is.logical.vector = lapply(l, FUNCTION_NAME)
但是我不知道用什么函数来代替FUNCTION_NAME (这只是一个占位符)。我需要一些东西，可以接受像allowed = c(0, 1, NA)这样的向量，并确保只有all
浏览 2提问于2014-01-16得票数 1
回答已采纳
基本上，我在我的数据页上有4列，在另一个页面上我有一个帐户列表。在数据页上出现多行同名的原因是因为它们在单独的日期上贡献了不止一次。
我需要查看帐户页面，其中基金名称等于数据页上的基金名称，SB在数据页上等于SB，而SE在数据页上等于SE，并找出基金有多少贡献者，并将它们放在一个数组中。
在帐户页的D列中，我需要找出SE不是该基金的贡献者，如果他们是返回假的，如果他们不是一个贡献者返回真。
在帐户页面的E列中，我需要找到SE是该基金的唯一贡献者，如果他们返回为TRUE，如果他们是返回假的。
在Accounts页面的E列中，我需要找到SE是否是许多贡献者之一，如果他们返回FALSE，则返回TRU
浏览 0提问于2016-05-26得票数 0
回答已采纳
嘿，很抱歉问你这个菜鸟的问题。因此，我正在尝试创建一个公式，该公式将根据一系列单元格中的文本将正方形变为绿色。我设法让它在一个带有"=$A3="Bob"“的单元格上工作。但我希望能够从A3-D6进行检查，所以如果Bob被输入到其中任何一个方块中，那么例如，A11将变成绿色，这可能吗？谢谢。
浏览 3提问于2020-08-28得票数 1
2回答
我正在寻找一种方法来计算字符串中出现的次数，我发现2 php函数可以这样做：
我试着理解这两个函数之间的区别。
我看到的主要区别是，substr_count区分大小写，但我不理解count_chars的如下说法：
计数字符串中每个字节值的出现次数(0..255)，并以各种方式返回。
如果有人能解释这两个函数之间的主要区别，也许一些例子会有所帮助。
浏览 5提问于2014-03-08得票数 0
回答已采纳
如何查询一个字符串在每个事件中出现的次数，也就是说，如果一个标签在一个事件中出现多次，则搜索应该显示每个事件中此类标签的数量
浏览 13提问于2021-08-28得票数 0
我有一个“订单”表和一个“记录”表。Orders表有以下列：
order_id order_date seller order_price
Records表有以下列：
order_id record_created_at record_log
record_log显示订单是“批准的”还是“拒绝的”，我正在试图找出每一个卖方的订单被批准的百分比(批准订单的百分比/订单总数的百分比)，以及订单金额在美元中的百分比(批准订单/订单总额)。
我使用下面的查询来查询数量上批准的订单的百分比：
(
SELECT COUNT
浏览 4提问于2020-09-03得票数 0
回答已采纳
SQLALchemy为我生成了以下查询：
SELECT count(client.id = user_accounting_journal_entry.client_id) AS count_1
FROM client, user_accounting_journal_entry
WHERE user_accounting_journal_entry.kind = 'debit'
GROUP BY client.name = user_accounting_journal_entry.client_id
注意select中的部分：count(client.id = user
浏览 1提问于2016-08-07得票数 0
我有一个整数向量，如下所示： a <- c(2,3,4,1,2,1,3,5,6,3,2)
values<-c(1,2,3,4,5,6) 我想为我的向量中的每个唯一值(唯一值被排序)列出它们出现的位置。我想要的输出： rep_indx<-data.frame(c(4,6),c(1,5,11),c(2,7,10),c(3),c(8),c(9))
浏览 23提问于2016-07-01得票数 2
回答已采纳
我正在尝试在电子邮件列表中查找约10.000个不同位置的出现位置。我需要的是一个向量，每个eMail最常提到的位置，第二个最频繁的一个和第三个！
因为我的数据集很大，所以我在性能上有问题。我在stringi和parallel包中尝试过，但运行速度仍然非常慢( 20.000个eMails和10.000个位置大约需要15分钟)。输入数据(eMails和Cities)如下所示：
SearchVector = c('Berlin, 'Amsterdam', San Francisco', 'Los Angeles') ...
g$Message = c(
浏览 1提问于2015-09-29得票数 0
我想找出逗号在一列一行中出现的最大数量。
例如,
Cars
1 Bugatti (4)","Ferrari (7)","Audi (10)
2 Toyota (6)
3 Tesla (9)","Mercedes(8)
4 Suzuki (11)","Mitsubishi (19)","Ford (7)","BMW (6)
对于上面的表列，逗号出现在一行中的最大值是3，在第4行。如何在更大的数据(4000+行)上实现这一点？
浏览 3提问于2019-10-22得票数 0
回答已采纳
1回答
我正在尝试计算数据帧的单个列中特定值出现的百分比。我使用以下代码加载单个数据帧，并计算sinlge列"Counter“中每个值的总计数。然后，我将其除以该数据帧中存在的行数，以获得百分比。
test <- read.csv("./subdata/Bur01.csv")
test %>%
group_by(Counter) %>%
summarise(no_rows = length(Counter))
Counter no_rows
<int> <int>
1 2 176
2
浏览 22提问于2021-06-01得票数 0
回答已采纳
1回答
我有一份物品清单。"RunDate“列有项目出现在列表中的天数。我想知道一件物品在名单上出现了多长时间。在我的数据示例中，OrderItemID 2758392出现了3天(RunDate) 1/4/2022、1/5/2022和1/6/2022。类似地，我想对列表中的每个OderItemID进行计算。例如，3105260在第24、25、26天出现。
Facility OrderNo PartNumber OrderItemsId RunDate
CA 451335-00 125759-100 2758392 1/4/2022
CA 45
浏览 2提问于2022-01-28得票数 0
1回答
注意:项目使用C，而不是C++
float entr = 0;
for(int i = 0; i < map->entry_count; ++i)
{
float x = (float)map->entry[i].occ / map->entry_count;
if(x > 0)
{
entr -= x * log(x) / log(2);
}
}
return entr;
当我的地图有3次出现值为15时，返回的熵是-4.214..某物
当我的地图有3次出现值15，1次出现值25时，返回的熵为0.000。
显然这里出
浏览 1提问于2020-06-28得票数 0
回答已采纳
1回答
我有一堆数据库转储文件要找出来。
我使用以下方法将文件中的数据读入数据格式列表：
filenames <- list.files(path ="./ref_tables", pattern="*.csv" )
file_read <- lapply(filenames, read.csv)
如何构建数据库列列表，以尝试并标识与什么连接的内容？首先，我希望在我的数据文件列表中的所有数据文件中构建一个不同的列名称列表。
浏览 2提问于2015-08-01得票数 2
回答已采纳
2回答
我正在尝试计算链表中IP的出现次数，并打印出每个单独ip地址的计数。我可以打印计数，但当我迭代它时，计数会减少，并且会打印重复的计数。此外，它们应该在顶部以最高的登录计数进行排序。
我曾尝试使用数组来实现此功能，方法是为每个IP在数组中创建副本，但这并不有效，因为无法事先为每个用户确定数组的大小。
预期输出：
IP Address Count
--------------------
97.88.145.98 12
141.219.153.201 4
141.219.209.223 3
141.219.210.114 3
141.219.
浏览 0提问于2018-03-24得票数 0
2回答
返回列表值的控件流。
、、、
我试图返回一个给定这个函数的值列表：
Pass_or_fail <- function(y){
x = round(runif(y, 0, 100), 1)
if(x>50){
list(print("Passed"))
}else if(x < 50){
list(print("Failed"))
}
}
当我将一个值传递给y (例如，20 )时，应该返回一个Passed或Failed字符的列表。然而，上面的函数只返回一个向量。我希望它返回与上述条件相关的20个值，主要是列表格式。
我正在考虑创建一个变量like
浏览 3提问于2021-02-01得票数 0
回答已采纳
1回答
不可预测的泊松噪声
、、、、
我正在比较应用泊松噪声的两组值。下面是我的代码和相应的结果：
import numpy as np
import pylab
size = 14000
# 1) Creating first array
np.random.seed(1)
sample = np.zeros((size),dtype="int")+1000
# Applying poisson noise
random_sample1 = np.random.poisson(sample)
# 2) Creating the second array (with some changed values)
浏览 3提问于2015-07-08得票数 2
回答已采纳
我刚刚开始使用visual，我想要创建一个计算单词出现次数的程序。我的计划是开发一个分析句子的程序，其中包含几个没有标点符号的单词。当该句子中的一个单词被输入时，程序将识别该单词在句子中出现的所有位置。
一开始，我做了一个代码，计算一个句子中空格的数量，但现在我被卡住了。
Module Module1
Sub Main()
Dim Sentence As String
Dim SentenceLength As Integer
Dim Text As String
Console.WriteLine("ASK N
浏览 1提问于2016-09-29得票数 0
回答已采纳
我需要接受一个字符串，并检查它上面出现了多少个字母表中的字母。然而，它似乎只计算'a‘出现的次数，并将该计数与所有字母连接在一起。我找不到错误在哪里。任何帮助都将不胜感激。提前感谢！这是我的代码和输出。
package javaPackage;
public class Counter {
public static void main(String[] args) {
String letter="abcdefghijklmnopqrstuvwxyz";
String word="banana";
浏览 1提问于2015-12-15得票数 1
我有一个带有数字序列的excel电子表格，我想要计算一个特定的数字出现了多少次(即4次)，附件是一个屏幕打印!()我寻找样本，但似乎没有人试图做同样的事情。
提前谢谢。
莱尼
浏览 1提问于2013-11-14得票数 0
1回答
为每一行指定出现的ID数
、、、
我需要向表中添加一个列，在该列中将跟踪到给定日期的ID出现数(大约有500个ID)。这张表是按日期排列的。ID只能每天出现一次。
表的示例
浏览 1提问于2018-03-31得票数 0
回答已采纳
计算表中两个数字在同一行中存在的次数。例如,
1 |A、B、C、D
2|1 2 3 4
3|1 3 4 5
4|2 4 5 6
表(A2:D4)中同一行出现1和2的次数为1，不计入第3行和第4行。那么，我该如何写这个公式呢？
浏览 0提问于2016-05-09得票数 0
假设我有一个数据帧列表，例如
list.df <- replicate(1000,
data.frame(l = sample(letters[1:5], 4), n = sample(c(1:4), 4)),
simplify = F)
如何统计列表中相同的数据帧出现的次数？
浏览 0提问于2017-11-21得票数 2
正如截图所示，我试图检测VWAP篮板，如果你可能看到，有一个巨大的熊市爆发在右边的图像。我的理论是，如果我能算出反弹次数(结合VWAP的趋势)，我就能预测潜在的突破。也是在看涨的背景下。
有一个函数来做这个计数吗？或者对脚本解决方案有什么想法吗？
我可以得到市场开放的时刻，这可能是点票的最好开始。不能让ta.cum()发挥作用。
浏览 4提问于2022-05-05得票数 1
回答已采纳
1回答
如何使循环跳过生成警告的输入？
、、、、
我正在对一组数据集运行一个复杂的函数(用Amelia进行多次推算)。有时，数据集会触发一长串警告，最终导致错误。我希望R在发出第一个警告后立即放弃，并转移到下一个数据集。下面是一个最小的工作示例：
df.list <- list(
data.frame(1:4),
data.frame(-1, -2, -4),
data.frame(10:15)
)
for(df in df.list){
ans <- sum(sapply(df, sqrt))
print(ans)
}
该脚本发出三个有关NaNs的警告，然后打印：
[1] 6.146264
[1] N
浏览 4提问于2020-05-26得票数 1
1回答
数据集(简化)
data <- data.frame()
data[1,1] <- "NO CB"
data[1,2] <- 1.13
data[1,3] <- 4.56
data[2,1] <- "NO CB"
data[2,2] <- 2.45
data[2,3] <- 7.54
data[3,1] <- "NO CB"
data[3,2] <- 3.56
data[3,3] <- 9.56
data[4,1] <- "NO CB"
data[4,2] <
浏览 2提问于2022-02-16得票数 0
回答已采纳
当我运行命令时
nmcli --get-values TYPE connection show --active
有时，我会收到如下的值列表
vpn
802-3-ethernet
tun
tun
但在其他情况下，vpn行不存在。(不能假定行的顺序)
我正在寻找一个一行程序，它将接受nmcli命令的输出(大概是通过管道/stdin？)当vpn在该列表中时，返回退出代码1，当vpn不在该列表时，返回退出代码0。
我试过的
我能想到的grep的每一个组合。grep -v绝对不能工作，因为它总是会找到一条不是vpn的行。grep的其他选项返回数据，但不更改错误代码(我可以找到)。，我可以找到或想到的每
浏览 3提问于2020-05-04得票数 0
回答已采纳
3回答
我必须在java 长数据类型中打印整数k的所有正幂。我的代码是：
int k = Integer.parseInt(args[0]);
int i = 1;
long a = k;
while (a <= Long.MAX_VALUE) {
System.out.print(i + " ");
System.out.println(a);
i++;
a = (long) Math.pow(k, i);
}
当我运行这个程序时，会创建一个无限循环。
但是，当我运行这个程序时，
浏览 3提问于2015-09-08得票数 2
回答已采纳
2回答
我想要一张桌子的交叉点。我的表格列出了在几个市场上出现的产品。我怎样才能得到A和B位置的产品(例如这个苹果)？
product market
apple location A
apple location B
orange location C
浏览 13提问于2017-01-16得票数 0
回答已采纳
该函数履行其职责，也就是说，如果没有带有该数据的集线器，它将添加该数据并返回其ID，否则它将找到包含从JSON输入的数据的hub ID。
CREATE OR REPLACE FUNCTION public.add_hub(
new_hub json,
OUT hub_id bigint)
RETURNS bigint
LANGUAGE 'plpgsql'
COST 100
VOLATILE PARALLEL UNSAFE
AS $BODY$
DECLARE
hub_name hub.name%TYPE := new_hub->
浏览 3提问于2022-06-17得票数 1
回答已采纳
3回答
R: L应用多重等式
、、、
给定列表test，如何找到在test[[2]]中重复3次，在test[[3]]中重复4次的数字？在这个特殊的例子中，我想要一个输出，给我3和6 In [2]和10 in [3]。
test <- list(c(1:10),c(1:10,3,3,6,6),c(1:10,10,10,10))
我能够为每个向量( test2 )生成一个表。
lapply(test,table)
但是，当我试图将表等效为1:3时，我将其存储为test的名称，得到每个向量的logical(0)。
names(test) <- 1:3
lapply(test,function(x) table(x)==nam
浏览 7提问于2017-05-02得票数 0
回答已采纳
2回答
我有一个包含1000个列表对象的列表。在其中任何一个元素中，我都有20个列表元素var0001:var0020 (每个元素不必与其他元素具有相同的长度，我的意思是，mylist[[]]$var0001的长度为1，但mylist[[]]$var0012的长度为1000)。
例如，当列表元素var0002 =1时，我需要一个函数来计算列表中列表对象的数量。
我试过以下几种方法：
sum(mylist[[]]$var0002 == 1)
不管用。
我可以用一个非常奇怪的代码来实现，
j <- 1
for(i in 1:length(mylist)){
if(mylist[[i]]$var
浏览 0提问于2018-11-09得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
