小编use*_*355的帖子

我做了一个doubleYScale情节:

library(lattice)
library(latticeExtra)

# Some data
foo <- list(x = 1:100, y = cumsum(rnorm(100)))

obj1 <- xyplot(y~ x, data=foo,xlab=list(cex=1.2), 
               main="TOtalProduktion VS SummaSkulder/TotaltKapital i procent",
               type = c("l","g"),col="black",
               lty=1,key = simpleKey(col=c('black'),
               text=c("Produktion"),cex=1.2,points=FALSE, lines=TRUE),
               scales=list(x=list(rot=90,tick.number=25,
               cex=1,axs="r")))

obj2 <- xyplot(y^2 ~ x,data= foo ,type = "o",col="black",
               lty=9,key = simpleKey(col=c('black'),
               text=c("Summa.skulder"),cex=1.2,lines=FALSE,points= TRUE))

doubleYScale(obj1, obj2, add.ylab2 = TRUE)

这problem是我无法改变y轴标签的文本大小(y和y^2文本,我想让它更大).如果我只绘制obj1或obj2单独绘制它是没有问题,但它不适用于doubleYScale......

另一方面,我可以使用以下方法更改y轴上的数字大小:

trellis.par.set(axis.text=list(cex=1))

有什么建议？我找不到办法:(

我正在尝试汇总以下数据:

{
    "_id" : ObjectId("527a6b7c24a8874c078b9d10"),
    "Name" : "FirstName",
    "Link" : "www.mylink.com/123",
    "year" : 2013
}
{
    "_id" : ObjectId("527a6b7c24a8874c078b9d11"),
    "Name" : "FirstName",
    "Link" : "www.mylink.com/124",
    "year" : 2013
}
{
    "_id" : ObjectId("527a6b7c24a8874c078b9d12"),
    "Name" : "SecondName",
    "Link" : "www.mylink.com/125",
    "year" : 2013
}

我想要聚合的occurencies数Name场,但也想返回相应Link的聚集查询的输出领域.现在我做这样的(这并没有返回Link输出字段):

db.coll.aggregate([

    { "$match": { "Year": 2013 } },

    { "$group": {
        "_id": {
            "Name": "$Name"
        },
        "count": { "$sum": 1 }
    }},
    { "$project": {
        "_id": …

我试图验证对每条路线的变化与用户react-router-dom和react hooks。这个想法是，每次用户导航到路线时，系统都会进行api调用并验证用户身份。我需要实现这一点，因为我使用react-redux，并且在每个窗口重载时，redux状态都不会持久。所以我需要再次设置isLoggedNow道具true：

const PrivateRoute = ({
  component: Component,
  checkOnEachRoute: checkReq,
  isUserLogged,
  ...rest
}) => {
  const [isLoggedNow, setLogged] = useState(isUserLogged);
  useEffect(
    () => {
      const fetchStatus = async () => {
        try {
          await selectisUserLogged();
          setLogged(true);
        } catch (error) {
          console.log(error);
        }
      };
      fetchStatus();
    },
    [isUserLogged],
  );
  return (
    <Route
      {...rest}
      render={props =>
        isLoggedNow ? (
          <div>
            <Component {...props} />
          </div>
        ) : (
          <Redirect
            to={{
              pathname: '/login',
            }}
          /> …

我正在尝试为许多资产计算一个滚动窗口(移动1天)协方差矩阵.

说我的df看起来像这样:

df <- data.frame(x = c(1.5,2.3,4.7,3,8.4), y =c(5.3,2.4,8.4,1.3,2.5),z=c(2.5,1.3,6.5,4.3,2.8),u=c(1.1,2.5,4.3,2.5,6.3))

我希望输出看起来如下:

cov(df[1:3,])  :

         x        y        z        u
x 2.773333 3.666667 4.053333 2.613333
y 3.666667 9.003333 7.846667 2.776667
z 4.053333 7.846667 7.413333 3.413333
u 2.613333 2.776667 3.413333 2.573333



cov(df[2:4,])  :

         x         y        z    u
x 1.523333  4.283333 3.053333 1.23
y 4.283333 14.603333 7.253333 3.93
z 3.053333  7.253333 6.813333 2.22
u 1.230000  3.930000 2.220000 1.08



cov(df[3:5,])  :

           x          y         z          u
x  7.6233333 -0.5466667 -3.008333  5.1633333
y -0.5466667 14.4433333  5.941667  0.9233333
z -3.0083333 …

我有一个df:

head(df) :

  Year              Asset1       Asset2        Asset3 Asset4    Asset5 
1 1857              1729900        32570       288482 1251642      0                     0     67374            89832
2 1858              1870213        35255       312262 1354817      0                     0     71948            95931
3 1859              1937622        36418       322562 1399505      0                     0     76773           102364
4 1860              1969257       207557        83393 1484403      0                     0     83102           110802
5 1861              2107481       222969        89585 1594627      0                     0     85843           114457
6 1862              2306227       235498        94619 1684234      0                     0     80613           211263

我ddply用来构建一个新的df,其中Asset 2:5除以Asset1:

dft<-ddply(df,.(Year),transform, 

              Asset2=Asset2/Asset1,
              Asset3=Asset3/Asset1,
              Asset4=Asset4/Asset1,
              Asset5=Asset5/Asset1)

但是如果有很多专栏那么它很安静......有什么建议吗？

最好的祝福!

我已经安装了Rstudio服务器Amazon EC2.它工作正常,但我无法理解如何在我的本地计算机上保存文件...

在例子中,

x=5
write.csv(x,file="x.csv")
getwd()
[1] "/home/rstudio"

I can see the file in my working directory, but I cannot change w.d...

setwd("C:\\Users\\Paul\\Documents\\R")
Error in setwd("C:\\Users\\Paul\\Documents\\R") : 
  cannot change working directory

编辑:我收到网络错误:连接超时...如果我使用来自codingthis.com/platforms/ec2/...的说明使用Putty ...或者如果我使用winSCP则"主机不存在"...

有什么建议？

最好的祝福!

说我有一个清单:

  mylist=list(list(data.frame(a=3,b=2,c=4),data.frame(d=5,e=6,h=8),data.frame(k=2,e=3,b=5,m=5)),
              list(data.frame(a=32,b=22,c=42),data.frame(d=5,e=63,h=82),data.frame(k=2,e=33,b=5,m=5)),
              list(data.frame(a=33,b=21,k=41,c=41),data.frame(d=5,e=61,h=80),data.frame(k=22,e=3,b=5,m=5)))

然后我尝试按列表的cbind每个元素获取一个新列表,例如cbind mylist[[1]][[1]]with mylist[[2]][[1]]和mylist[[3]][[1]]

功能:

newlist=lapply(seq_along(mylist[[1]]), function(x){    
    newlist=Reduce("cbind",c(mylist[[1]][x],mylist[[-1]][x]))
    return(newlist)

})

I get:
Error in mylist[[-1]] : attempt to select more than one element  

但如果列表只是:lapply工作:

mylistshort=mylist[-3]

期望的结果是:

[[1]]
  a b c  a  b  c a  b  k  c
1 3 2 4 32 22 42 33 21 41 41

[[2]]
  d e h d e  h  d e  h
1 5 6 8 5 63 82 5 61 80

[[3]]
  k e b …

node.js request我想知道模块在参数方面如何工作timeout。

timeout一段时间过去后会发生什么？IE：

var request = require('request');
var options = {
    url: Theurl,
    timeout: 300000
};

request(options, function(error, resp, body) {...

之后会发生什么300000？request是否尝试再次请求该url？

我还发现Linux Kernel有一个默认的 20 秒TCP socket connection timeout.（http://www.sekuda.com/overriding_the_default_linux_kernel_20_second_tcp_socket_connect_timeout），这是否意味着无论我设置什么，该timeout选项request将是最大 20 秒（如果我不更改） ？我用。Linux Kernel timeoutoptionsUbuntu

我有一个字符串: "http://www.website.com/20170401_63582484.htm"

然后我尝试匹配63582484: "http://www.website.com/20170401_63582484.htm".match(/\d{8}/)

但后来我得到了答案20170401.如何更改match为仅匹配8位数的最后一次出现？

我在https://react-redux.js.org/api/batch上读到，可以使用batch“来确保在 React 之外调度的多个操作只会导致单个渲染更新”，就像这样（我在 React 事件中使用）处理程序即）：

...
const submitData = event => {
    // ... some code before
    batch(() => {
        dispatch(first())
        dispatch(second())
    })
}
...

但我的问题是如何正确batch操作，redux-saga以便在从 saga 分派多个操作时，结果是一次重新渲染而不是多次重新渲染？我试图将多个put放在all数组中，但不确定它实际上是批处理put：

yield all([
    put(addFirst({first: 1})),
    put(addAnother({second: 2)),
]);

上面的方法是因为我在https://github.com/manaflair/redux-batch上阅读了作者写的文档“自从这个包被写出来，redux-saga 改进并使用了 all([ put(...), put(...) ]) 似乎将这两个操作正确地批处理为单个订阅事件，在这种情况下使 redux-batch 变得多余。 ”，但在https://github.com/manaflair/redux-batch/issues/ 21另一个人写道，批处理由React unstable_batchedUpdates API. 仍然redux-toolkit（我使用）具有用一个例子redux-batch为store enhancer …