小编Nic*_*ton的帖子

我有兴趣将django-cms用于内容管理,将django oscar用于电子商务.

有人可以给我一些方向,最好是已经成功结合两者的人:

[A]该结构应该是一个基础奥斯卡站点,修改奥斯卡模板以插入必要的占位符以允许cms等...,

要么

[B]结构应该是基础django-cms站点,奥斯卡是由插件等处理的......

我的直觉是它应该是[A],但如果我错了,请纠正我.

任何其他建议将不胜感激,因为网上很少,我写信给奥斯卡的作者没有回应.我知道这个链接,它不涉及实现,只比较兼容性.

使用ggplot2,我如何绘制一个在facet之间运行的趋势线.

library(ggplot2)
df <- data.frame(y=c(1,2,3),x=1,Set=LETTERS[1:3])
ggplot(df,aes(x,y)) + 
  theme_bw() + theme(legend.position=c(0,1),legend.justification=c(0,1)) + 
  geom_point(aes(fill=Set),color="black",shape=21,size=3) + 
  facet_grid(~Set) + 
  xlim(1,5)

产生以下内容:

在上面,我想在这三点之间画一条线,横过小平面.

考虑以下:

A = R6::R6Class("ClassA")
B = R6::R6Class("ClassB")

`+.ClassA` = function(o1,o2) o1 #Trivial Example, Usually do something
`+.ClassB` = function(o1,o2) o1 #Trivial Example, Usually do something

a = A$new()
b = B$new()

a + b

哪个引发错误:

Warning: Incompatible methods ("+.ClassA", "+.ClassB") for "+"
Error in a + b : non-numeric argument to binary operator

如何用上述得到解决,所以双方A并B可以重载+运营商,并加在一起.

假设我在磁盘上有一个图像,称之为image.jpg,如何使用统计语言R确定图像宽度和高度的像素数.

不知道从哪里开始所以没有最小的例子我害怕.

如果有人可以简单地建议包装和功能,我可以解决剩下的问题.

我使用R和ggplot2为我的论文制作图表.我可以使用tikzdevice将它们移植到tikz对象或使用pdf设备非常容易地将它移植到pdf,并且在每种情况下,指定整个图的宽度和高度都很简单.

然而,我实际上更感兴趣的是指定绘图AREA(即内框)的宽度,因为这方面的差异(特别是对于同一页面上的绘图)更容易被眼睛检测到,即使它们是一对最终文件中的要点不同.

当然,这个问题的根源可以很容易地归结为根据内容而变化的轴标签.

我的问题是,如何将"固定"轴标签宽度定义为全局选项,或者将要导出的宽度定义为ggplot2对象的内部绘图区域....

在R,ggplot2中,如何更改stat_density2d几何对象中使用的网格以受三角形区域约束？

我正在绘制不是标准ggplot2类型的三元图,轮廓在轴上溢出.实际三元图的代码非常冗长,但实质上,我需要将等高线约束为等边三角形.

以下是重现问题的示例代码:

library(ggplot2)

triangle <- data.frame(x=c(0,.5,1),y=c(0,1,0))
dummy <- data.frame(x=c(0.25,0.50,0.75),y=c(0.25,0.75,0.25))

p <- ggplot() + geom_polygon(data=triangle,aes(x,y),fill="transparent",color="black",size=1)
p <- p + geom_point(data=dummy,aes(x,y))
p <- p + stat_density2d(data=dummy,aes(x,y)) + theme_bw() +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
        panel.border = element_blank(), axis.ticks = element_blank(), 
        axis.text.x = element_blank(), axis.text.y = element_blank(),
        axis.title.x = element_blank(), axis.title.y = element_blank())
p

我相信这是由于网格与绘图区域的原始笛卡尔坐标边界相关联,为了演示,请考虑以下代码:

library(ggplot2)

triangle <- data.frame(x=c(0,.5,1),y=c(0,1,0))
dummy <- data.frame(x=c(0.25,0.50,0.75),y=c(0.25,0.75,0.25))

p <- ggplot() + geom_polygon(data=triangle,aes(x,y),fill="transparent",color="black",size=1)
p <- p + geom_point(data=dummy,aes(x,y))
p <- p + stat_density2d(data=dummy,aes(x,y),geom='tile',contour=F,fill="transparent",color="magenta") + theme_bw() …

我有这种情况,我正在绘制一系列行,如下所示:

library(foreach)
library(ggplot2)

df.test <- foreach(ix = seq(0,1,by=0.01),.combine=rbind) %do% {
  theta = seq(-pi,pi,by=pi/100)
  data.frame(IX=ix,theta=theta,value=ix*sin(theta))
}
ggplot(df.test,aes(x=theta,y=value,color=IX,group=IX,order=-IX)) + geom_path() +
  theme_bw() + labs(x="Theta",y="Sin(Theta)",color="Index",title="Example Plot") +
  theme(legend.position=c(0,1),legend.justification=c(0,1))

其中产生如下情节:

如果仔细观察原点,高指数值(浅蓝色)的值会堆叠在具有低索引值(深蓝色)的行的顶部.

如何将其反转,使深蓝色线条(低指数)堆叠在浅蓝色线条(高指数)之上.

以上类似于我的实际问题,我正在绘制各种温度的科学数据.低温值比高温值更有意义,因此我不希望低温线可能被高温线屏蔽,实际上我的偏好相反.

如何将变量用作块名称？我有一个多次调用的子文档,我需要以一种比我也可以交叉引用它们的方式推进块标签.

像这样的东西:

child.Rmd

```{r }
if(!exists('existing')) existing <- 0
existing = existing + 1
myChunk <- sprintf("myChunk-%s",existing)
```

## Analysis Routine `r existing`

```{r myChunk,echo = FALSE}
#DO SOMETHING, LIKE PLOT
```

master.Rmd

# Analysis Routines

Analysis for this can be seen in figures \ref{myChunk-1}, \ref{myChunk-2} and \ref{myChunk-3}

```{r child = 'child.Rmd'}
```

```{r child = 'child.Rmd'}
```

```{r child = 'child.Rmd'}
```

编辑潜在的解决方案

这是一个潜在的解决方法,受SQL注入所有东西的启发......

child.Rmd

```{r }
if(!exists('existing')) existing <- 0
existing = existing + 1
myChunk <- sprintf("myChunk-%s",existing) …

我有一个带有许多参数的函数.如果缺少任何错误,我需要抛出错误:

这可以这样做:

testFunction = function(a,b,c,d,e,f,g,....){
  if(missing(a)) stop("a is required")
  if(missing(b)) stop("b is required")
  if(missing(c)) stop("c is required")
  if(missing(d)) stop("d is required")
  if(missing(e)) stop("e is required")
  if(missing(f)) stop("f is required")
  if(missing(g)) stop("g is required")
}

但是我的实际案例包含的参数多于上面的简单示例,因此,我宁愿使用循环执行等效检查,如下所示:(这不起作用)

testFunction = function(a,b,c,d,e,f,g,...){
  args = as.list(environment())
  for(n in names(args)){
    if(missing(as.name(n))) stop(sprintf("%s is required",n))
  }
}

上面抛出一个错误:

Error in missing(as.name(n)) : invalid use of 'missing'

如何通过参数名称的字符表示检查参数是否缺失？

如何获取 materialUI 文本字段中的当前光标（插入符号）位置？

https://material-ui.com/components/text-fields/

基本上，我需要修改特定索引处的字符串内容（例如，在 char #3 和 char #4 之间插入一个 char X）。

我知道使用onChange,onClick和onFocus事件将标记可能发生了位置更改（即单击鼠标，或者说使用左/右箭头按钮移动，或键入某些内容），但是如果我有对文本的引用-field 对象，哪个方法或属性将允许我确定插入符号的确切位置（索引值0 .. n-1）？

在 中jQuery，我认为这可以通过selectionStart属性获得，那么 MaterialUI 文本字段的最佳方式究竟是什么？

非常感谢。