小编Uwe*_*Uwe的帖子

我正在尝试创建一个美国的等值区域地图,其默认颜色从灰色变为白色.

我有48个状态中的18个的记录,并且代码用于按值着色,但对于那些我没有记录的状态,状态是灰色的.我希望他们是白人.

如何更改颜色？

library(maps)
library(plyr)
library(ggplot2)
records1<-read.csv('E:/My Documents/records_by_state.csv')
records<-data.frame(state=tolower(rownames(records1)), records1)
head(records)
all_states<-map_data("state")
head(all_states)
record_map<-merge(all_states, records, by.x="region", by.y="state.name")
record_map<-arrange(record_map, group, order)
head(record_map)

p<- ggplot()

p<- p + geom_polygon(data=record_map, aes(x=long, y=lat, group=group,    fill=record_map$Records), colour="black"
         )+ scale_fill_continuous(low="thistle2", high="darkred", guide="colorbar")
P1 <- p + theme_bw() +labs(fill= "Records by State"
                    , title= "By State", x="", y="")
P1 + scale_y_continuous(breaks=c()) + scale_x_continuous(breaks=c()) +  theme(panel.border= element_blank())

我想开始将我们的应用程序业务层移动到REST Web服务的集合中.但是,我们的大多数Intranet都是使用Classic ASP构建的,我工作的大多数开发人员都在使用Classic ASP进行编程.理想情况下,为了让他们从一组独特的Web API的优势中受益,必须从Classic ASP页面调用它.

我没有丝毫想法如何做到这一点.

我想获得数据帧的每个列中的唯一值的数量.假设我有以下数据框:

DF <- data.frame(v1 = c(1,2,3,2), v2 = c("a","a","b","b"))

那么它应该返回v1有3个不同的值,v2有2个不同的值.

我尝试了唯一(DF),但它不起作用,因为每行都不同.

如果我的数据框(df)如下所示:

Name        State
John Smith  MI
John Smith  WI
Jeff Smith  WI

我想从WI"John Smith1"重命名John Smith.什么是SQL语句中最干净的R等价物？

update df 
set Name = "John Smith1"
where Name = "John Smith"
and State = "WI"

任何人都可以建议实现通用集合类的良好实现,实现IBindingListView&IBindingList接口并提供过滤和搜索功能吗？

我将目前的选项视为:

• 使用其他人编写和测试过的类
• 继承BindingList<T>和实现IBindingListView接口
• 从头开始编写自定义集合,实现IBindingListView和IBindingList.

显然,第一个选择是我的首选.

我正在尝试编写一些包装器函数来减少代码重复data.table.

这是一个使用的例子mtcars.首先,设置一些数据:

library(data.table)
data(mtcars)
mtcars$car <- factor(gsub("(.*?) .*", "\\1", rownames(mtcars)), ordered=TRUE)
mtcars <- data.table(mtcars)

现在,我通常会写这个以获得按组计算的总结.在这种情况下,我分组car:

mtcars[, list(Total=length(mpg)), by="car"][order(car)]

      car Total
      AMC     1
 Cadillac     1
   Camaro     1
...
   Toyota     2
  Valiant     1
    Volvo     1

复杂的是,因为参数i和j在框架中进行评估,如果你想传入变量data.table,就必须使用eval(...)它们:

这有效:

group <- "car"
mtcars[, list(Total=length(mpg)), by=eval(group)]

但现在我想通过相同的分组变量来排序结果.我无法得到以下任何变体给我正确的结果.注意我总是得到一行结果,而不是有序集.

mtcars[, list(Total=length(mpg)), by=eval(group)][order(group)]
   car Total
 Mazda     2

我知道为什么:它是因为group是在而parent.frame不是框架中进行评估data.table.

我怎样才能group在上下文中进行评估data.table？

更一般地说,我如何在函数内部使用它？我需要以下函数来给我所有结果,而不仅仅是第一行数据:

tableOrder <- function(x, group){ …

我在data.table包中遇到了一些有点不直观的键行为.这是一个例子:

library(data.table)
foo <- data.table(a = c(1:4), b = c(2:5), c = c(3:6), d = c(4:7))
setkey(foo, b)

然后,有一个惊人的结果key():

key(foo[, .(mean(c + d)), by = .(b)]) # result is "b".
key(foo[, .(mean(c + d)), by = .(a)]) # result is "a". (!!)

然后,还有另一个例子可以产生不同的,更合理的结果.

foo <- data.table(a = c(4:1), b = c(2:5), c = c(3:6), d = c(4:7))
setkey(foo, b)
key(foo[, .(mean(c + d)), by = .(b)]) # result is "b".
key(foo[, .(mean(c + d)), by = …

我有一个数据表dt:

library(data.table)
dt = data.table(a=LETTERS[c(1,1:3)],b=4:7)

   a b
1: A 4
2: A 5
3: B 6
4: C 7

结果dt[, .N, by=a]是

   a N
1: A 2
2: B 1
3: C 1

我知道by=a或者by="a"按a列分组的方法,N列是重复次数的总和a.但是,我没有使用,nrow()但我得到了结果.这.N不仅仅是列名吗？我??".N"在R中找不到该文件.我试图使用.K,但它不起作用.什么.N意思？

我在Visual Studio 2010中有一个带有大量项目的.NET解决方案.直到最近,当我从IDE中运行启动项目时,只有在启动项目或其中一个依赖项目中对代码进行了更改时才会构建项目.

大约两周前,我注意到每次运行启动项目时,Visual Studio都会构建所有项目,大约需要7分钟.毋庸置疑,这需要花费大量时间,而且我已尽力在网上寻找解决方案,但尚未找到解决我具体问题的任何解决方案.

还有一些额外的信息 - 在我开始遇到这个问题的同时,同样的问题开始发生在我的团队中的其他人身上.

我们还使用源代码存储库.由于我们没有更改Visual Studio中的任何设置,我怀疑有人在某些项目的源代码中无意中更改了某些项目,现在每次都需要构建所有项目.

任何建议将不胜感激.

为什么我在曲线条形图中获得的顺序不同于我在x和y变量中定义的顺序.

例如

library(plotly)

plot_ly(
  x = c("giraffes", "orangutans", "monkeys"),
  y = c(20, 14, 23),
  name = "SF Zoo",
  type = "bar"
)

我需要条形图,我看到的条形顺序与x变量(分类)相同.这有什么诀窍吗？