小编Jot*_*ota的帖子

我想使用Microsoft Office Interop Word Assemblies来读取word文档的页眉和页脚.

我有两个问题:

首先如何访问脚注和标题？第二个如何将它们转换为String(当我调用toString()时,我只得到了"System .__ ComObject")

Excel中有一些函数称为left,right和mid,您可以从单元格中提取部分条目.例如=left(A1, 3),将返回单元格A1的3个最左边的字符,=mid(A1, 3, 4)将开始在单元格A1中的第三个字符,并给你的字符数3 - 6是R中有类似的功能或类似的简单方法可以做到这一点？

作为简化的示例问题,我想采用矢量

sample<-c("TRIBAL","TRISTO", "RHOSTO", "EUGFRI", "BYRRAT")

并创建3个新向量,每个条目包含前3个字符,每个条目中间2个字符,每个条目中最后4个字符.

(我知道)Excel没有函数的一个稍微复杂的问题是如何使用每个条目中的第1个,第3个和第5个字符创建一个新的向量.

我有一个物种数据集及其在100 x 200米范围内的粗略位置.数据框的位置部分不是我认为可用的格式.在这个100 x 200米的矩形中,有两百个10 x 10米的正方形,名为A到CV.在每个10×10平方内,有四个5×5米的正方形,分别命名为1,2,3和4(1位于2的南边,3的西边.4位于2的东边,3的北面).我想让R知道A是在(0,0),(10,0),(0,0)和(0,10)处有角的正方形,B就在A的北边并且有角( 0,10),(0,20),(10,10)和(10,20),K位于A的东边,在(10,0),(10,10),(20,对于所有10×10米的正方形,0)和(20,10)等等.另外,我想让R知道每个5 x 5米的正方形在100 x 200米的情节中的位置.

所以,我的数据框看起来像这样

10x10    5x5     Tree    Diameter
A    1     tree1    4
B    1     tree2    4
C    4     tree3    6
D    3     tree4    2
E    3     tree5    3
F    2     tree6    7
G    1     tree7    12
H    2     tree8    1
I    2     tree9    2
J    3     tree10   8
K    4     tree11   3
L    1     tree12   7
M    2     tree13   5

最终,我希望能够绘制100 x 200米的区域并且每个10 x 10米的方格显示树木的数量,或物种的数量,或总生物量.转换数据的最佳方法是什么？到R可用于绘图和可能分析的空间数据？

我有一个大约有800万行和3列的数据框.我用strptime()以下方式:

df$date.time <- strptime(df$date.time, "%m/%d/%y %I:%M:%S %p")

这适用于所有行,但我检查使用的1104行

df[is.na(df$date.time), ]

当我查看这些"问题"数据时,date.time条目似乎按照我期望的方式进行格式化.例如,这是一个出现问题的观察结果,但似乎不是NA:

id                date.time              outcome
observation543490 2012-03-11 02:14:01    C

在这里可能会发生什么,is.na(df$date.time)为显然已正确转换的行返回TRUE值？

这是一个可重复的例子(如果你在CST):

is.na(strptime("03/11/12 2:14:01 AM", "%m/%d/%y %I:%M:%S %p", "CST6CDT"))
#[1] TRUE

在散点图中,我想使用identify函数来标记正确的顶点.

我这样做了:

identify(x, y, labels=name, plot=TRUE)

*我有一个命名向量.

然后,当它运行时,我指向正确的点.然后在停止后,它会显示该点的标签.

我是否必须每次点击我想要标记的点？我可以保存吗？

我已经定义了三个表,Stores,InventoryItems和StoreItemRecords.我的StoreItemRecords表具有外键列(StoreID,InventoryItemID),它们"指向"商店(StoreID)和InventoryItems(InventoryItemID)记录的主键.表之间的列名称相同.

如果我运行这样的查询:

SELECT StoreID, InventoryItemID FROM StoreItemRecords;

我得到了一些奇怪的结果.我得到:1,Hammer 2,Box of Nails 3,其他一些项目名称.

所以,我正在获得StoreID,就像我应该的那样.但我也得到了库存项目的名称,而不是库存项目的ID.此外,请务必注意,InventoryItemID列定义为NUMBER,而不是TEXT.

所以,不知何故,Access试图通过提供InventoryItemName来代替InventoryItemID来帮助我,但我似乎无法找到这种行为的原因或任何阻止它的方法.

[还有一个说明.我已经编写了一些VBA代码来填充StoreItemRecords表,并且在调试模式下,我可以"监视"分配给列的InventoryItemID值,并且我已经验证了ID实际上已放入其中.

有没有人见过这样的行为？我知道当有人指出我正在做的愚蠢的事情时,我会感到非常愚蠢,但在这一点上,值得尴尬.

提前感谢您提供的任何帮助.

假设我有一个句子向量:

Vector
Juan is searching for a magazine.
Julia searched her car.
Go to the market to buy eggs.
Your name is unsearchable.
Search for me when you get to Paris.
Can you search for a low cost solution?

我想要这个向量的一个子集,它只包含带有"搜索"或其变体的词条(即搜索,不可搜索,搜索).在excel中,我可能会使用类似的东西ISNUMBER(SEARCH("search",A1))找出A1包含单词" search"的列中的哪些单元格.

在我看来,这grep可能是我正在寻找的功能,但我无法弄清楚如何正确使用它.

我刚刚在向数据库提交记录时收到了一个奇怪的错误.它是一个数据输入表单,它调用一堆代码,然后调用

  docmd.runcommand acSaveRecord
  Application.quit

在末尾.我改变了这一行docmd.save,docmd.runcommand acSaveRecord因为记录有时没有被保存.我没有将应用程序设置为紧凑并在关闭时进行修复.为什么我收到此消息？

完整的错误是 You cannot compact the open database through vba or a macro

我有一个向量：

df <- c(65225, 108249, 156508, 29321, 37905, 50175, 62484, 69943, 73723, 
      555, 12, 331, 1000000, 15232, 1433, 441009, 11141414, 050505)

我想找出向量每个元素的长度。

我怎样才能做到这一点？我尝试使用 apply-family 中的一些东西，但不断出现参数错误。我会用一个吗seq_along(length(df))？

基本上，输出将是一列数字和一列每个观察的长度。然后，我将能够仅对那些df$dfLen > 5.

我有以下数据集:

subj <- c(rep(11,3),rep(12,3),rep(14,3),rep(15,3),rep(17,3),rep(18,3),rep(20,3))
group <- c(rep("u",3),rep("t",6),rep("u",6),rep("t",6))
time <- rep(1:3,7)
mean <- c(0.7352941, 0.8059701, 0.8823529, 0.9264706, 0.9852941, 0.9558824, 0.7941176, 0.8676471, 0.7910448, 0.7058824, 0.8382353, 0.7941176, 0.9411765, 0.9558824, 0.9852941, 0.7647059, 0.8088235, 0.7968750, 0.8088235, 0.8500000, 0.8412698)
df <- data.frame(subj,group,time,mean)
df$subj <- as.factor(df$subj)
df$time <- as.factor(df$time)

现在我用ggplot2创建一个条形图:

library(ggplot2)
qplot(x=subj, y=mean*100, fill=time, data=df, geom="bar",stat="identity",position="dodge") +
   facet_wrap(~ group)

如何使其不显示每个方面中不存在的x轴标签？如何在每个subj之间获得相等的距离(即摆脱更大的间隙)？