小编Luk*_*rau的帖子

我有一个有两行的数据框:

| code | name  | v1 | v2 | v3 | v4 |
|------|-------|----|----|----|----|
| 345  | Yemen | NA | 2  | 3  | NA |
| 346  | Yemen | 4  | NA | NA | 5  |

是否有一种简单的方法来合并这两行？如果我在"346"中重命名"345"会更容易吗？

我正试图尝试使用Google Translate API的小Python脚本.
我在哪里安装API或我必须做什么,所以nosetest不再告诉我

ImportError: No module named apiclient.discovery

脚本运行正常,我按照你的意愿导入它并用pip安装它,但是我找不到任何关于如何使用nosetest工作的信息.

任何帮助将不胜感激!:)

我有一个看起来像这样的模型：

class Assignment(models.Model):
    """An assignment covers a range of years, 
    has multiple coders and one specific task"""
    title = models.CharField(blank=True, max_length=100)
    start_date = models.DateField(default=date.today)
    end_date = models.DateField(default=date.today)
    coders = models.ManyToManyField(User, related_name='assignments')

我想改变这个模型（它有数据已经​​在生产中），使它看起来像这样：

class Assignment(models.Model):
    """An assignment covers a range of years, 
    has multiple coders and one specific task"""
    title = models.CharField(blank=True, max_length=100)
    start_date = models.DateField(default=date.today)
    end_date = models.DateField(default=date.today)
    coders = models.ManyToManyField(User, through = 'AssignmentProgress')

class AssignmentProgress(models.Model):
    """The progress a particular coder has made with an assignment"""
    assignment = models.ForeignKey(Assignment, related_name="assignment_progress") …

我有一张波斯尼亚地图,根据居住在那里的少数民族的颜色进行着色.但是,我想使用不同的图案而不是颜色(或灰度),因为它将以黑白打印.
我搜索过,但找不到办法.有没有人知道如何做到这一点？ 链接到shapefile

到目前为止,这是我的代码:

library(RColorBrewer)
library(maptools)
library(rgdal)
library(rgeos)
library(ggplot2)
library(gridExtra)

setwd("path")

bosnia <- readOGR("path/to/file", "bosnia_analysis", 
                verbose = TRUE, stringsAsFactors = FALSE)

bosnia <- readShapePoly("path/to/bosnia_analysis.shp",proj4string=CRS("+proj=longlat +datum=WGS84"))
bosnia.df <- bosnia@data

serbs <- bosnia[bosnia$SEPRIORITY > bosnia$CRPRIORITY & bosnia$SEPRIORITY > bosnia$MOPRIORITY,]
croats <-  bosnia[bosnia$CRPRIORITY > bosnia$SEPRIORITY & bosnia$CRPRIORITY > bosnia$MOPRIORITY,]
moslems <- bosnia[bosnia$MOPRIORITY > bosnia$CRPRIORITY & bosnia$MOPRIORITY > bosnia$SEPRIORITY,]

p <- ggplot(bosnia, aes(x = long, y = lat, group = group)) + 
  geom_polygon(aes(x=long,y=lat,group=group), fill="white", colour="grey") +
  geom_polygon(data=serbs, aes(x=long,y=lat,group=group), fill="black", colour="grey") +
  geom_polygon(data=croats, aes(x=long,y=lat,group=group), fill="green", …

我有一个大致如下所示的数据集：

names = tibble(NAME_2=c("Location1","Location2","Location3","Location4"))
dates = tibble(date = seq(as.Date("2015-01-01"), as.Date("2016-12-31"), by="days"))
types = tibble(type = c("comment","post"))
df <- merge(names,dates)
df <- merge(df, types)
zero <- seq(from=0, to=200, by=1)
df$n <- sample(zero, size=nrow(df), replace=TRUE)

产生像这样的构面图：

ggplot(data = df, aes(x = date, y = n)) +
  geom_line() +
  facet_grid(type ~ NAME_2, scale = "free_y")

是否有可能出现类似ncol=2in的行为，facet_wrap以便Location3和Location4出现在Location1和Location2下面？实际上，我大约有12个位置，这使得无法在一页上进行打印并且仍然清晰可辨。

假设我有一个如下所示的数据框:

   v1 v2 v3 v4 v5 v6
r1 1  2  2  4  5  9
r2 1  2  2  4  5  10
r3 1  2  2  4  5  7
r4 1  2  2  4  5  12
r5 2  2  2  4  5  9
r6 2  2  2  4  5  10

我想获得v6中具有最高值的行,其中v1中的值为1.我知道如何获取v1 = 1的所有行并选择其中的第一行,这要归功于前一个问题的答案:

ddply( df , .variables = "v1" , .fun = function(x) x[1,] )

如何更改函数以便在v6中获得具有最高值的行？

我正在尝试创建这样的图表：

在ggplot2。

这个想法是将真/假值的分布可视化，即在 80 个中的第 3 个上条和 280 个中的第 2 个下条中。如何做到这一点ggplot2？

假设我有两个这样的模型:

class Article(models.Model):
    article_title = models.CharField(max_length=100)

class EventRecord(models.Model):
    article = models.ForeignKey(Article)

在视图中,我选择了某个EventRecord,并希望显示与其相关的文章的标题.以下不起作用:

def classify(request, pk):
    event = get_object_or_404(EventRecord, pk=pk)
    article_id = event.article
    article = get_object_or_404(Article, pk=article_id)

我该如何工作？任何帮助真的很感激!

我的一个模型包含一个具有数千个实例的模型的外键字段。
当我显示一条记录时，所有这些都会加载到一个下拉列表中，我a）不需要它，b）速度慢得像碎片一样，尤其是在一页上显示多个记录时。
由于下拉列表的大小，页面大小会增加到 3.5mb 的倍数。

我想过使用“limit_choices_to”来包含它，但是

country = models.IntegerField(blank=True, null=True)
location = models.ForeignKey(Geonames, limit_choices_to = {'cowcode': country}, related_name='events')

不起作用。有没有办法做到这一点？

更新：
我想显示什么？
我想显示上面代码的来源中Geonames的所有位置 ( ) 。我只想显示这些地点，而不是所有可能地点的完整列表。countryEventRecord