小编use*_*103的帖子

ggplot2:基于背景对比度的文本颜色

我有以下情节:

m <- structure(list(Var1 = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 
1L, 2L, 3L, 4L, 5L, 6L, 7L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 1L, 2L, 
3L, 4L, 5L, 6L, 7L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 1L, 2L, 3L, 4L, 
5L, 6L, 7L, 1L, 2L, 3L, 4L, 5L, 6L, 7L), .Label = c("FE", "AG", 
"NO", "SPH", "SEP", "H/I", "CMP"), class = "factor"), Var2 = structure(c(1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, …
Run Code Online (Sandbox Code Playgroud)

r ggplot2

6
推荐指数
1
解决办法
806
查看次数

使用双列表的问题

我在尝试在R中实现双列表时遇到问题.如果一个子列表仅使用一个元素进行初始化,那么在我尝试添加更多元素之后,我会收到错误消息:

提供的元素多于要替换的元素

这是一个例子:

#
# This is OK
#
a <- list()
a[["elem1"]][["elem2"]] <- c(10,20)
a[["elem1"]][["elem2"]] <- c(a[["elem1"]][["elem2"]], c(30,40))
Run Code Online (Sandbox Code Playgroud)

这是一个输出:

> a
$elem1
$elem1$elem2
[1] 10 20 30 40
Run Code Online (Sandbox Code Playgroud)

但,

#
# This is giving error:
#
a <- list()
a[["elem1"]][["elem2"]] <- c(10)
a[["elem1"]][["elem2"]] <- c(a[["elem1"]][["elem2"]], c(30,40))

Error in a[["elem1"]][["elem2"]] <- c(a[["elem1"]][["elem2"]], c(30, 40)) : 
more elements supplied than there are to replace
Run Code Online (Sandbox Code Playgroud)

这是一个输出:

> a
$elem1
elem2 
10 
Run Code Online (Sandbox Code Playgroud)

我将不胜感激任何帮助.

r nested-lists

5
推荐指数
0
解决办法
3137
查看次数

Django 管理 url 过滤器不起作用

http://localhost:8000/admin/myapp/rnaextracts/?biosamples__biosamplesetid__in=[57,52,51,50,49]我已经构建了链接另一个管理页面的网址。该链接指向一个列表视图,并且该列表通过 url 中传递的表达式进行过滤。

然而,Django 重定向到正确的管理列表视图,但查询更改为?e=1(我认为这表明某种错误)并且显示未过滤的列表。

我已经在 Django shell 中尝试过过滤表达式,它有效:qs = RnaExtracts.objects.filter(biosamples__biosamplesetid__in=[57,52,51,50,49]。它返回一个查询集,其中包含 416 个对象中的 52 个。

django django-admin django-admin-filters

3
推荐指数
1
解决办法
1627
查看次数