我有一个数据框,我想添加另一列,这是一个涉及3个其他列的计算结果.我现在使用的方法似乎很慢.有没有更好的方法来做同样的事情.这是我正在使用的方法.
library(bitops)
GetRes<-function(A, B, C){
tagU <- bitShiftR((A*C), 4)
tagV <- bitShiftR(B, 2)
x<-tagU %% 2
y<-tagV %% 4
res<-(2*x + y) %% 4
return(res)
}
df <- data.frame(id=letters[1:3],val0=1:3,val1=4:6,val2=7:9)
apply(df, 1, function(x) GetRes(x[2], x[3], x[4]))
Run Code Online (Sandbox Code Playgroud)
我的数据框非常大,需要很长时间才能完成这项计算.有人可以建议我做得更好吗?
谢谢.
我试图改变情节中的ylim.但是一旦我改变它,情节就会消失.我无法弄清楚原因.有人可以帮我解决问题吗?
>df<-data.frame(Category=c("A", "B", "C", "D", "B", "A", "D", "C"), Setup=c("X", "Y"), Gain=c(1.4, 1.45, 1.43, 1.48, 1.33, 1.37, 1.04, 1.09))
>p<-ggplot( df, aes(Setup, Gain)) + ylim(0.9, 1.25) + geom_bar(stat="identity") + facet_wrap( "Category", ncol=2 )
Run Code Online (Sandbox Code Playgroud)
当我删除ylim()时,上面的代码工作,但ylim它不起作用.知道这是什么问题吗?
谢谢.
我有一个'n'字节bytearray.这与定义的ctypes.Sturcture之一相同.我想将这个bytearray类型化为这个结构.这样我就可以访问这个成员了.我怎样才能做到这一点?
class ABC(Structure):
_fields_ = [("a", c_uint), ("b", c_ushort), ("c", c_ushort)]
class DEF(Structure):
_fields_ = [("abc", ABC), ("i", I)]
b = bytearray(b'\x88\x08\xc0\xf9\x02\x85\x10\x00\xcc')
s = DEF()
print(s.abc.a)
Run Code Online (Sandbox Code Playgroud)
如何获得上述print声明的正确值?
我有一个基于文本的数据库文件,用于存储学生条目,如下所示:
SID:LNAME:FNAME:hw01:quiz01
004:dravid:rahul:78:100
002:ganguly:sourav:54:13
005:kohli:virat:48:43
001:kumble:anil::54
003:tendulkar:sachin:87:78
Run Code Online (Sandbox Code Playgroud)
用户输入他想要更新的标题和学生的sid/lname/fname.因此,例如,如果用户输入
sid = 001,hw01,得分= 19,我想要输出如下:
SID:LNAME:FNAME:hw01:quiz01
004:dravid:rahul:78:100
002:ganguly:sourav:54:13
005:kohli:virat:48:43
001:kumble:anil:19:54
003:tendulkar:sachin:87:78
Run Code Online (Sandbox Code Playgroud)
我意识到awk是最好的方法.知道怎么做吗?
谢谢.
我有一个数据框:
x <- data.frame(id=letters[1:3],val0=1:3,val1=4:6,val2=7:9)
id val0 val1 val2
1 a 1 4 7
2 b 2 5 8
3 c 3 6 9
Run Code Online (Sandbox Code Playgroud)
我想绘制一个堆积条形图,显示每列的百分比.因此,每个条形代表一行,并且每个条形具有长度但具有三种不同颜色,每种颜色代表val0,val1和val2的百分比.
我试着寻找它,我只能获得绘制堆积图但不是堆积比例图的方法.
谢谢.
我正在生成一个我可以在RMarkdown输出中看到的情节,但每当我试图保存它时,我只得到一个空白(白色)图像.我只是在剧情之前和之后添加以下两行
png("Output.png")
#Plot code
dev.off()
Run Code Online (Sandbox Code Playgroud)
它工作正常.突然它停止了工作.有人可以帮我吗?
当我这样做的时候 pdf
pdf("output.pdf")
#plot code
dev.off()
Run Code Online (Sandbox Code Playgroud)
我收到的错误是:
There was error opening this document. This document cannot be opened because it has no pages.
Run Code Online (Sandbox Code Playgroud)
谢谢.
我有一个目录,我保存所有.csv文件.我已经为这个目录创建了一个快捷方式.现在,我想通过这个快捷方式阅读那些csv.
read.csv("<shortcut to directory>/input.csv");
Run Code Online (Sandbox Code Playgroud)
以上命令不起作用.抱怨"无法创建连接"
任何人都可以帮助我吗?
我有一个邻接列表,我想要对它们进行可视化并对其进行处理.有没有一个包有效地完成它.我看到有很多图表包,但他们之间感到困惑.有人可以帮我吗?
$`825`
[1] 824
$`824`
[1] 823
$`823`
[1] 822
$`822`
[1] 821
$`821`
[1] 820 777
$`820`
[1] 819 816 789 787 785 783
$`777`
[1] 776
Run Code Online (Sandbox Code Playgroud)
以上是邻接清单.下面是我想要的图表.
825
|
824
| _______ 783
823 /
| /________ 785
822 /
| /__________ 787
821 -- 820
| \__________ 789
777 \
| \________ 816
776 \
\______ 819
Run Code Online (Sandbox Code Playgroud)
谢谢.