1回答
获取一些通用数据
set.seed(123)
A <- sample(1997:2000, 50, replace=TRUE)
B <- sample(1:3, 50, replace=TRUE)
C <- rnorm(50)
df <- data.frame(A,B,C)
我想创建一个汇总表，为每个A值(年份)，然后每个B值(类型)，将打印相应的中值C值。
我尝试了以下代码
参考网站
mytable <- table(df$A, df$B, median(df$C))
ftable(mytable)
和
require(plyr)
ddply(df, .(A),
浏览 3提问于2015-07-29得票数 0
回答已采纳
1回答
我很难弄清楚如何在长格式数据上使用dplyr计算简单的平均值。
我的数据如下所示：
hldid idno sex diary age
1 1294 1294_1 2 1 39
2 1294 1294_1 2 2 39
3 1294 1294_2 1 1 43
4 1294 1294_2 1 2 43
...
有4个变量：hldid idno sex diary age idno是个人标识符，而不是唯一键。
每个个体重复2次，每个diary填充一次。
我只想简单地用sex来计算sex的平均值。
你能帮帮我吗？
我试
浏览 2提问于2015-07-20得票数 0
回答已采纳
3回答
按因子级细分数据帧
、、、
我有一个大数据框架，在一个colum中有状态名称，在其他列中有不同的索引。我希望按状态子集，并创建一个适合于索引最小化的对象或数据帧，并且已经给出了计算结果。
这里有一个简单(简短)的例子
m
x y
1 A 1.0
2 A 2.0
3 A 1.5
4 B 3.0
5 B 3.5
6 C 7.0
我想要得到这个
m
x y
1 A 1.0
2 B 3.0
3 C 7.0
我不知道是否需要有for循环的函数。喜欢
minimize<-function(x,...)
for (i in m$x){
do something with data by factor value
浏览 2提问于2014-01-21得票数 4
回答已采纳
我有以下数据框架，称为df，它是由三个向量组成的数据框架：“场景”、“名称”和“外观”。我想将“名称”在列表中的每一个实例的“外观”值相加，然后除以名称在列表中出现的次数。然后，我想从df中删除所有的行，其中的总数(总外观除以列表中名称的次数)小于2。
例如，在df中，除约翰和希特勒的值为(2+2)/2=2和(4+1/2)=2.5外，每个人的行都会被丢弃。
Scene Name Appearances
112 Hamlet 1
113 Zyklon 1
114 Hitler 4
115
浏览 4提问于2013-12-17得票数 1
回答已采纳
2回答
我有一个csv文件，其中包含两个研究组的癌症数据:A和A随访(例如，治疗前后)。这些数据如下：
ID Ethnicity Study Group
45A Caucasian A
45B Caucasian A - follow up
68A Asian A
68B Asian A - follow up
族裔和研究组都是目前的因素。我想按研究小组的种族提取出总数，但我很难找到前进的道路。欢迎任
浏览 3提问于2015-08-05得票数 1
回答已采纳
请考虑以下几点：
data(cars)
library(data.table)
A <- data.table(cars)
B <- data.table(speed = 10, dist = 100)
我想把A的第一列除以B中的第一列，A的第二列除以B中的第二列，所以：A[,1]/B[,1]，A[,2]/B[,2]，.输出应该如下所示：
speed dist
1: 0.4 0.02
2: 0.4 0.10
3: 0.7 0.04
4: 0.7 0.22
...
(这是一个玩具例子。我希望把它
浏览 2提问于2020-07-05得票数 2
回答已采纳
3回答
我在R中逐行绑定列表时遇到问题。我的列表数据集是：
id:1
data$k: 1
id k b c
1 1 1 3
----------------
data$k: 2
id k b c
1 2 1 4
--------------
id:2
data$k: 1
id k b c
2 1 1 6
----------------
data$k: 2
id k b c
2 2 5 10
我想要的是：
id k b c
1 1 1 3
1 2 1 4
2 1 1 6
2 2 5 10
谢谢!
浏览 2提问于2013-10-09得票数 4
1回答
有比使用bind_rows()更好的在group_by()组中添加行的方法吗？这里有一个有点笨拙的例子：
df <- data.frame(a=c(1,1,1,2,2), b=1:5)
df %>%
group_by(a) %>%
do(bind_rows(data.frame(a=.$a[1], b=0), ., data.frame(a=.$a[1], b=10)))
我们的想法是，我们已经分组的列可以从组中推断出来。
我想知道这样的东西是否可以替代：
df %>%
group_by(a) %>%
insert(b=0, .at=0) %&g
浏览 2提问于2016-01-01得票数 7
我有以下错误代码:当我想创建我的面板数据时，在结果时间中出现重复的配对(id- pdata.frame )。
我已经知道有时会有两对重复的情侣，但我只是不知道如何修复它？有谁有主意吗？
pdata <- pdata.frame(TestTable, index= c("id","date"))
table(index(pdata), useNA = "ifany")
我们看到，在某些日期中，有两对→介于0和2之间
View(table(index(pdata), useNA = "ifany"))
再次检查是否存在重复的对
浏览 0提问于2019-08-24得票数 0
这可能是一个重复，但我使用了各种不同的关键字，试图找到答案，但失败了。我想要做的是从一个数据框架中删除跨多个列的所有不匹配实例：
id = c(1,1,1,2,2,3,3,4,5,5)
type = c("a", "a", "b", "b", "b", "a", "b", "b", "a", "a")
df = data.frame(id,type)
id type
1 1 a
2 1 a
3 1
浏览 2提问于2013-10-04得票数 3
回答已采纳
我在R中工作，我需要根据玩家是否有Mike这个名字来创建一个二进制列(0代表No，1代表Yes)。这是我到目前为止拥有的代码，但我不知道下一步该做什么：
baseball$player_mike <- ifelse(baseball$player_name == "%Mike%", 1, 0)
baseball是数据框，player_mike是binary列，player_name是球员列表(有他们的全名)。如果有任何关于我做错了什么的建议，我将不胜感激，谢谢！
浏览 0提问于2018-06-11得票数 1
我有两个数据帧，每个有120万行。
我尝试将它们与dummy <- merge(df1, df2)合并。这两个数据帧都没有一个共同的列，但是两个数据帧的行都按照我想要的顺序排列。
我希望它们并排合并，但是当我运行合并函数时，我会得到以下错误：
Error: cannot allocate vector of size 5905.6 Gb
In addition: Warning messages:
1: In rep.int(rep.int(seq_len(nx), rep.int(rep.fac, nx)), orep) :
Reached total allocation
浏览 2提问于2016-03-04得票数 1
1回答
我正在尝试用从另一个数据中提取的数据对数据进行子集。我的数据实质上是这样的：
PriceData
Date AAPL BAC CAT JNJ PG UNH VZ
2004-04-26
2004-04-27 Daily Prices
2004-04-28
2004-04-29
Companies
Date X1 X2 X3 X4
2004-04-26 AAPL CAT PG VZ
2004-04-27 AAPL CAT
浏览 4提问于2019-11-21得票数 0
回答已采纳
我很难从一些时间序列数据中创建一系列的间隔。
如果我有一个日期、浓度以及该浓度是否超过5的阈值的数据帧(df)：
df <- structure(list(DATE = structure(c(1356183950, 1356184851, 1356185750,
1356186650, 1356187551, 1356188450, 1356189350, 1356190250, 1356191150,
1356192050, 1356192950, 1356193851, 1356194750, 1356195650, 1356196550,
1356197450), clas
浏览 5提问于2015-02-25得票数 2
回答已采纳
3回答
我有一个看起来像这样的data.frame：
Name freq
1 species1 4
2 species2 8
3 species1 7
4 species1 10
5 species2 9
我想对每个物种名称的频率进行求和。预期结果：
Name freq
1 species1
浏览 0提问于2013-05-22得票数 1
回答已采纳
我有一个这样的数据框架：
id no age
1 1 7 23
2 1 2 23
3 2 1 25
4 2 4 25
5 3 6 23
6 3 1 23
我希望通过id将日期帧聚合成这样的形式：(如果no共享相同的id，只需将它们相加，但将age保留在那里)
id no age
1 1 9 23
2 2 5 25
3 3 7 23
如何使用R来实现这一点？
浏览 1提问于2013-04-13得票数 15
回答已采纳
我必须为已完成最低工作数的员工检索I。有多名员工已经完成了1项工作。我当前的sqldf查询只检索1行数据，而有多个只完成了1项任务的员工ID。为什么它停留在第一个最小值？以及如何获取列中具有最小值的所有行？下面是一个数据示例：
ID TaskCOunt
1 74
2 53
3 10
4 5
5 1
6 1
7 1
我所用的代码：
sqldf("select id, min(taskcount) as Jobscompleted
from (select id,count(id) as taskcount
浏览 0提问于2017-11-05得票数 2
回答已采纳
目前，我正在尝试使用来自我的两个列(gene_name和UMI)的唯一值按行过滤我的gene_name。我正在使用dplyr包中的不同函数来完成这个任务。当我的列表很短的时候，代码运行得非常快，但是当data.frame非常大的时候，大约一亿行的代码运行起来就像永远一样。是否有更有效的方法来解决这个问题？
下面是我目前正在做的事情(这只是一个更大程序的片段)：
df <- read.delim("hash_test.txt")
df = arrange(df, Gene)
filter_umis = df %>% distinct(Gene, UMI)
下面是我用来
浏览 1提问于2016-04-02得票数 1
回答已采纳
我有两个向量：
a <- c(6,5,3,1,6,7,4,5,3,2)
b <- c(2,1,1,2,3,2,1,3,3,2)
我想要一个简单的代码，它返回一个向量，它由向量"a“中所有值在b中有相同值的位置的平均值组成。此外，我希望它的排序方式与b的级别相同( levels (as.factor(B )。
solution = c(mean(5,3,4),mean(6,1,7,2),mean(6,5,3))
更简单的例子：
a <- c(1,2,3,4)
b <- c(1,2,2,1)
solution <- c(2.5,2.5)
非常感谢！
浏览 3提问于2013-04-24得票数 2
回答已采纳
2回答
我有以下数据
> tmp
Genome value
1 a 1
2 b 2
3 c 3
4 a 3
5 b 3
6 c 2
我试过使用dcast，但没有做我想做的事情。我要下面的数据。
a b c
1 1 2 3
2 3 3 2
> dput(tmp)
structure(list(Genome = structure(c(1L, 2L, 3L, 1L, 2L, 3L), .Label = c("a",
"b", "
浏览 0提问于2019-06-18得票数 0
回答已采纳
1回答
我有一个列，在那个列中，我有大约5-10个实例，每个实例有几十万个不同的字符串。我想数一数，然后把计数放到相应的行中。所以我想：
newdf <- ddply(oldDF, ~BigVariable, transform, counts = length(BigVariable))
这很好，直到我开始接近100万行/1GB文件大小。每次使用这个或更大的数据集时，我的R会话都会出现致命错误。然而，有了28 Gb的空闲内存，我不明白为什么会出现问题，但我从的理解是，蹒跚学步有时会占用内存。
我很确定这是一个内存问题，因为在我的系统监视器崩溃之前，我看到了修改过的内存，并且正在使用内存争夺空
浏览 3提问于2016-08-18得票数 1
回答已采纳
1回答
下面是我在R中的一个表(事件日志)
Case.ID | Activity | Timestamp | Resource | State
------------------------------------------------------------
0 |Take order| 00:12:04 | Waiter | Assign
------------------------------------------------------------
0 |Take order| 00:18:02 |
浏览 1提问于2017-05-10得票数 0
2回答
我有一个带有X，Y剖面编号和相关深度的数据集地理参考：
Dataset
X = c(1:10)
Y=c(11:20)
Profile=c(298,298,298,299,299,299,300,300,301,301)
Depth=c(-1,-1,-2,-1,-2,-3,-1,-1,-1,-2)
df=as.data.frame(cbind(X,Y,Profile,Depth))
我的数据集如下所示：
X Y Profile Depth
1 1 11 298 -1
2 2 12 298 -1
3 3 13 298 -2
4
浏览 0提问于2013-03-18得票数 3
回答已采纳
我有一个大型的数据表(来自包)，其中有60多列(前三列对应于因子，其余的对应于响应变量，在本例中是不同的物种)，还有几行对应于不同级别的处理和物种丰度。一个非常小的版本看起来像这样：
library(data.table)
TEST <- data.table(Time=c("0","0","0","7","7","7","12"),
Zone=c("1","1","0","1","
浏览 0提问于2014-02-18得票数 19
回答已采纳
以下是我的数据
data
date number value
2016-05-05 1 5
2016-05-05 1 6
2016-05-06 2 7
2016-05-06 2 8
2016-05-07 3 9
2016-05-08 4 10
2016-05-09 5 11
当我使用以下命令时，
data %>% gr
浏览 3提问于2016-08-01得票数 5
回答已采纳
以下是我的数据：
> PayInstance EMPLID DEPTID JOBCODE PAY_FREQUENCY MAX._TTL.GROSS
> 1 1 23231606 100880 W 1203
> 2 1 23231606 100880 W 597
> 3 1 23231606 100880 W 625
> 4 1 23231606 100880 W 245
浏览 0提问于2017-08-26得票数 1
2回答
下面的"do“函数给出了”想要“的结果。我认为我可以得到同样的使用不巢，但无法使它工作。
library(dplyr)
library(tidyr)
# Function rr is given
rr = function(x){
# This should be an expensive and possibly random function
r = range(x + rnorm(length(x),0.1))
# setNames(r, c("min", "max")) # fails, expecting single value
浏览 1提问于2016-05-22得票数 5
回答已采纳
1回答
我的个人电脑似乎要慢下来总结如下：
library(plyr)
# Function for creating random n pseudowords of predefined length needed for colnames. Proposed by: http://ryouready.wordpress.com/2008/12
colnamesString <- function(n=10000, lenght=12) /18/generate-random-string-name/
{
randomString <- c(1:n)
浏览 2提问于2014-02-25得票数 0
回答已采纳
我有一个带有2m+行的文件。
为了避免内存超载，我想以块的形式读取这些行，然后对块中的行执行进一步的处理。
我读到readLines是最快的，但是我找不到用readlines读取块的方法。
raw = readLines(target_file, n = 500)
但我想要的是有一个readLines的n = 501:1000。
raw = readLines(target_file, n = 501:1000)
在R中有办法做到这一点吗？
浏览 0提问于2018-06-16得票数 1
回答已采纳
1回答
我有一个如下的数据帧，并想创建一个基于事件最大扩散的时间扩散变量。 A<- c('1244', '1244', '1244', '1245', '1245', '1245', '1245', '1245', '1245', '1245')
sequence<- c(1,1,0, 1,1,0,0,1,1,1)
# 1= lived locally and 0 lived internationally
date&l
浏览 7提问于2021-09-15得票数 2
回答已采纳
我想做一些比
dataframe$col <- as.character(dataframe$col)
因为我有很多数字列。
浏览 4提问于2021-08-04得票数 3
回答已采纳
我有一个42行2列的matrixA。然后，我有一个函数，随机选择12行，对随机选择的矩阵进行线性回归，并输出线性回归的系数(斜率和截距)。
在R中，我想从随机函数中没有选择的原始矩阵中得到其余的30行，然后用新计算的系数来生成一个点(y-值)。因此，我将有30个y-值，然后从这里使用新的y-值和新的30行矩阵中的1列计算RMSE ()。
下面的代码是我现在拥有的代码：
#Calibration Equation 1 (TC OFF)
A <-矩阵(c(Box.CR，Box.DC.ww)，nrow=42)
随机函数(A){
B<- A[sample(42,12),]
lm(B[,2]
浏览 2提问于2013-12-05得票数 0
回答已采纳
1回答
我有很多数据，其中我有5个变量:主题，日期，date+the小时，测量的集中和喂食。
因此，对于每个主题，我们从date+hour(1)到date+hour(n)进行了一些测量。因此，我们对每一主题都有n个测量值。我想做的是通过对每个主题日期+小时-日期+小时1来计算每一行的记录时间。为此，我做了一个循环。在我意识到我对每一个科目都有几天的记录之前，它一直运行得很好。因此，这意味着我必须计算每个主题和日期，记录的时间。
，这是我的脚本：
getwd()
setwd("H:/OptiMIR LMD files/week1")
Week1<-read
浏览 3提问于2016-10-13得票数 0
在制作一个数据位于多个columns.My数据集中的频率表时，我遇到了困难，其结构如下：
ID shape shape2 shape3 shape4 shape5
12 triangle rhombus circle square rectangle
68 hexagon NA NA NA NA
32 rectangle octagon square NA NA
18 square triangle NA
浏览 5提问于2021-11-29得票数 0
回答已采纳
作为一个简单的例子，我编写cars时没有列名。
data.table::fwrite(cars, "cars.csv", col.names = FALSE)
然后，我尝试使用列名并指定列a的类型来读取它们。
data.table::fread("cars.csv", col.names = c("a","b"),
colClasses = list(a = "numeric"))
我得到了这个错误
data.table::fread("cars.csv"，co
浏览 0提问于2019-09-04得票数 3
回答已采纳
我通过克隆Service Portal (ServiceNow)中现有的表单小部件创建了新的小部件。已修改URL ()中的sys_id和表名。使用小部件创建了新页面，生成的网页显示“未找到记录”
HTML：
<div ng-if="!data.isValid && !data.emptyStateTemplate" class="panel panel-default">
<div class="panel-body wrapper-lg text-center">
${Record not f
浏览 1提问于2017-05-13得票数 0
3回答
我经常有按一个或多个变量分组的数据，每个组中有几个注册。从数据框中，我希望根据各种标准选择组。
我通常使用split-sapply-rbind方法，使用逻辑向量从列表中提取元素。
这里有一个小例子。我从一个具有一个分组变量('group')的数据框开始，我希望选择最大质量小于45的组：
dd <- data.frame(group = rep(letters[1:3], each = 5),
mass = c(rnorm(5, 30), rnorm(5, 50),
rnorm(5,
浏览 0提问于2012-12-07得票数 5
回答已采纳
我有一个包含大约100个csv文件的文件夹，我想把它们读入R中的一个数据文件中，我有点知道如何做到这一点，但是我必须跳过每个csv文件中的前两列，这就是我被困在其中的部分。到目前为止我的代码是：
myfiles <- list.files(pattern = ".csv") # create a list of all csv files in the directory
data_csv <- ldply(myfiles, read.csv)
谢谢你的帮助
浏览 1提问于2019-12-30得票数 1
回答已采纳
我有一个数据集，其中包含从2010年到2019年美国所有51个州和不同列的观察结果。其中一列是Gdp。数据集如下所示：
State year ... GDP
Alabama 2010 ... 182.26
Alabama 2011 ... 185.05
. . . .
. . . .
. . . .
Alaska 2010 ... 54.15
Alaska 2011 ... 54.65
我想计算所有年份和所有州的国内生产总值的第一差(year_t - year_(
浏览 0提问于2021-04-06得票数 0
如果我想用data.table重新编码R中的一个变量，语法是什么？我看到了一些ans，但发现它们并不合适。
例如，如果我有一个名为gender的变量
我想将性别0重新编码为未知，1重新编码为男性，2重新编码为女性:以下是我尝试的方法：
Name <- c("John", "Tina", "Dave", "Casper")
Gender <- c(1, 2, 2, 0)
trips <- cbind.data.frame(Name, Gender)
trips[, gender = ifelse(gender =
浏览 1提问于2019-11-22得票数 0
1回答
arm<-as.data.frame(matrix(c(1,1,1,2,2,6,7,4,9,10),ncol=2))
colnames(arm)<-c("a","b")
这是我在R中创建的数据集。
现在我要对b列和a列进行排序。
下面的代码会抛出这个错误，不管我对语法做了什么更改(比如添加[]、"“等等)。
sqliteSendQuery中的错误(con，语句，bind.data)：语句中的错误:接近"("：语法错误)
我用的是"sqldf“软件包。
arm2<-sqldf("select a,
浏览 1提问于2015-09-02得票数 6
我有一个看似简单的问题，但我不知道如何得到我真正想要的东西。
我的数据如下所示：
Job C/C++ Java Python
Student FALSE TRUE FALSE
Developer TRUE TRUE TRUE
Developer TRUE TRUE FALSE
Sysadmin TRUE FALSE FALSE
Student FALSE TRUE TRUE
我想按“作业”列分组，并计算每一列中的
浏览 0提问于2013-03-08得票数 6
回答已采纳
在加载了data.table包之后加载lubridate包时，会收到以下错误消息：
Loading required package: data.table
data.table 1.9.4 For help type: ?data.table
*** NB: by=.EACHI is now explicit. See README to restore previous behaviour.
Attaching package: ‘data.table’
The following objects are masked from ‘package:lubridate’:
hour,
浏览 0提问于2015-05-15得票数 2
回答已采纳
3回答
我试图找到一种更符合R -风格的方法来选择R中组的第二个元素(但不是第一个元素)。
最后，我创建了一个索引rowNumIndex；2.在一个数据帧中选择和放置第一行，然后将前两行放在一个单独的数据帧中；然后是3。“反向合并”两个数据帧，以便从数据帧中获得与前两行相同的唯一值：
firsts <- ddply(df,.(group), function(x) head(x,1)) # 2 records using data below
seconds <- ddply(df,.(group), function(x) head(x,2)) # 4 records using da
浏览 4提问于2014-03-06得票数 3
回答已采纳
我有一个相对较大的数据框架，涵盖了550万个包含2个变量的观测结果，这里是一个数据样本。它包含有关用户生成页面查看日期的信息。
timestamp user_id
2013-11-07 ff268cef0c29
2013-11-02 12bb7af7a842
2013-11-30 e45abb10ae0b
2013-11-06 e45abb10ae0b
2013-11-25 f266f8c9580e
注意，数据帧的顺序首先是user_id，然后是时间戳，通过
kstaord<-kstaord[order(kstaord$timestamp,kstaord$use
浏览 2提问于2014-01-04得票数 2
回答已采纳
我试着逐行比较来自dataframe d2的2列和来自dataframe d2的2列。为了说明这个问题，我创建了虚拟数据集： d1 <- data.frame(
a = c(1,2,3),
b = c(4,5,6)
)
d2 <- data.frame(
a = c(2,0,2),
b = c(5,5,6)
) 理想情况下，我希望标记d1中至少在d2的一行中找到匹配的所有行，因此所需的结果将是： data.frame(
a = c(1,2,3),
b = c(4,5,6),
flag = c(0,1,0)
) 这是我尝试过的： for (i in 1
浏览 35提问于2021-09-16得票数 0
2回答
假设您有以下数据框架：
set.seed(100)
Pts <- floor(runif(20, 0, 10))
Individual <- c(rep("Adam",5), rep("Ben",5), rep("Charlie",5), rep("Daisy",5))
Date <- c(rep(seq(as.Date("2015-01-01"), as.Date("2015-01-05"), "days"), 4))
RollMean <- rep(NA,
浏览 0提问于2015-10-14得票数 3
回答已采纳
1回答
问题已从原始中编辑出来。
在阅读了这个有趣的之后，我想知道如何使用dplyr替换列中的NAs，例如，Lahman处理数据：
Source: local data frame [96,600 x 3]
Groups: teamID
yearID teamID G_batting
1 2004 SFN 11
2 2006 CHN 43
3 2007 CHA 2
4 2008 BOS 5
5 2009 SEA 3
6 2010 SEA
浏览 1提问于2014-02-11得票数 40
回答已采纳
我已经读过好几次了，但我仍然无法思考如何做一些操作；更普遍地说，我还没有理解关于如何使用变量名称的基本“哲学”。考虑一下这个示例问题：
我有一个包含变量'a‘、'b’、'c‘、’d‘的数据表：
> dt <- data.table(a=c(1,1,2), b=1:3, c=11:13, d=21:23)
> dt
a b c d
1: 1 1 11 21
2: 1 2 12 22
3: 2 3 13 23
假设我的脚本交互地要求用户输入一个列名和相应的值，用于选择行。这两个变量存储在rowselectname和rowselectvalue中。
浏览 7提问于2021-12-11得票数 2
2回答
假设我有一个file A和(id,x,y)，另一个file B有(ID, xmin, xmax,ymin,ymax)，还有dim(A)~50000和dim(B)~3000。
我需要的是向A添加一个额外的列，其中每一行都是一个向量，该向量由B$ID[j]组成，A$x[i]在B$xmin[j]和B$xmax[j]之间，而A$y[i]在B$ymin[j]和B$ymax[j]之间。这个向量的最小维数为1，最大维数为4。
(本质上，我有一个网格，我想知道网格中的哪些单元，A的元素正在下降。)它们总是落在至少一个单元格中，最多可达4个)
我怎么表达呢？
谢谢你的帮忙
浏览 1提问于2018-04-03得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
