一个程序小问题，但就是找不出原因，求问，

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

> x
     学号 数学分析 高等代数 运筹学
1  201501       62       72     73
2  201502       71       69     95
3  201503       75       78    100
4  201504       69       86     81
5  201505       72       79     92
6  201506       91       29     72
7  201507       80       80     61
8  201508       80       95     61
9  201509       64       98     96
10 201510       92       88     66
11 201511       97       82     69
12 201512       76       63     89
13 201513       76       85     85
14 201514       93       70    100
15 201515       67       94     87
16 201516       95       68     72
17 201517       96       77     95
18 201518       75       58    100
19 201519       86       80     74
20 201520       97      100    100
21 201521       71       72     99
22 201522       84      100     93
23 201523       80       58    100
24 201524       98       53    100
25 201525       61       87     76
26 201526       63       83     83
27 201527       83       74     82
28 201528       81       88     79
29 201529       92       69     80
30 201530       71       54     77
31 201531       88       68     71
32 201532       66       65     79
33 201533       66       96     81
34 201534       73       86     82
35 201535       93       88     92
36 201536       75       90     79
37 201537       99       64     76
38 201538       66       69     76
39 201539       85       94     83
40 201540       61       68     64
41 201541      100       96    100
42 201542       64      100     76
43 201543       61       89     86
44 201544       82       92     71
45 201545       66       74     74
46 201546       68       73     65
47 201547       68       61     71
48 201548       94       93     75
49 201549       94       86     87
50 201550       72       82     67

> apply(x["数学分析","高等代数","运筹学"],1,sum)
错误于drop && length(x) == 1L : 'x && y'中'x'种类不对
> apply(x["数学分析","高等代数","运筹学"],1,sum)
错误于drop && length(x) == 1L : 'x && y'中'x'种类不对
> apply(x["数学分析","高等代数","运筹学"],1,sum)
错误于drop && length(x) == 1L : 'x && y'中'x'种类不对

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：小问题 length apply 高等代数 数学分析 程序

这是什么原因

试一试如下代码：

1. if(is.data.frame(x))
   
2.     x$total <- apply(x[, -1], 1, sum)

复制代码

要求总分是吧：

1. apply(x[,-1],1,sum)

复制代码

abelus 发表于 2015-11-25 12:05
试一试如下代码：

什么意思？

jiangbeilu 发表于 2015-11-25 12:37
要求总分是吧：

嗯，要求的事谁的总分最高:x$学号[which.max(apply(x[\"数学分析\",\"高等代数\",\"运筹学\"]),1,sum)]

jiangbeilu 发表于 2015-11-25 12:37
要求总分是吧：

谢谢，手机看不到你给的代码，，但是我那样为什么不行了？我在教学视上看是可以的啊，我电脑就不行了，，，，，是版本不一样的原因吗？

c("数学分析","高等代数","运筹学")

你有没有看错？

abelus 发表于 2015-11-25 12:05
试一试如下代码：

谢谢

为嘛非要用汉字来做variable names啊