标签: labels

我想在ClearCase中找到标有特定标签但没有设置任何其他标签的文件.

例如,如果我有像这样标记的文件:

file1 LBL_A, LBL_B
file2 LBL_A

我想有一个查询,只给我file2而不是file1.

有没有办法用cleartool找到这个？如果单个查询无法做到这一点,我也很高兴有任何想法如何在几个步骤中执行此操作(我将从perl脚本调用cleartool,因此保存文件列表很容易暂时并在它们上运行更多命令).

非常感谢提前!

一月

public static JFreeChart createChart(String title, List <Result> results){

    DefaultPieDataset pieDataset = new DefaultPieDataset();

    Iterator<Result> itr = results.iterator();

    while (itr.hasNext()) {
        Result result = itr.next();
        String itemName = result.getItemName();
        BigDecimal itemResult = result.getItemResult();
        pieDataset.setValue(itemName, itemResult);
        }

        JFreeChart chart = null;

        try {
            chart = ChartFactory.createPieChart(title, pieDataset,true, false, false);

        } catch (Exception e) {
            log.error("Threw a ParseException in createChart:, full message:",
                    e);
        }

    return chart;
    }    

如何翻转标签？

我在R中有一个数据集,我使用{Hmisc}包来应用变量标签.但是,当我将数据集导出到Stata时(使用{foreign}包中的write.dta函数),变量标签不会出现在Stata中.相反,变量名称也显示为变量标签.数据集包含如下变量:

X1 X2 X3

在Stata中,我希望变量具有与变量名相关联的变量标签,如下所示:

X1"国家"X2"PerCapita收入"X3"人口"

当然,如果我可以在Stata而不是R中应用标签,这将更容易,但我正在尝试为仅使用R的研究人员提供代码.不幸的是,我需要将数据发送到数据存储库,这需要数据集文件格式为Stata.

我试图修改这里提供的代码:从R中的`label attribute`到SPSS中的`VARIABLE LABELS`的信息.它没用.

这就是我生成变量标签的方式:

library(Hmisc)
label(data[,1]) <- "State"
label(data[,2]) <- "Per Capita Income"
label(data[,3]) <- "Population"

要导出到Stata,我使用了这个:

library(foreign)
write.dta(data,file="C:/Users/Me/Desktop/data.dta")

基于另一篇文章,我试着让变量标签"粘住":

df<-data
get.var.labels <- function(data){
a<-do.call(llist,data)
tempout<-vector("list",length(a))
for (i in 1:length(a)){
tempout[[i]]<-label(a[[i]])
}
b<-unlist(tempout)
structure(c(b),.Names=names(data))
}
attributes(df)$variable.labels=get.var.labels(df)

该代码是为了导出到SPSS编写的,所以我没想到它会起作用.尽管如此,我希望我可以找到类似的东西来为Stata做同样的事情.

任何帮助将不胜感激!!

顺便说一下,数据框确实有列名,但我希望它们对于数据管理的目的更具描述性.同时,我想保留原始列名(基本上是X1,X2,X3),以便研究人员可以继续以这种方式引用变量.

查看漏斗图示例,在metafor页面上 - 似乎有一种方法可以在漏斗图中添加标签.该漏斗图页面提供了更多的细节,但它没有列出添加标签的例子.

提供的示例:

library(metafor)
png(filename="contour_enhanced_funnel_plot.png",
    res=92, width=680, height=600, type="cairo")
par(mar=c(5,4,1,2))
data(dat.bcg)
res <- rma(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, measure="RR",
           slab=paste(author, year, sep=", "), method="REML")
funnel(res, level=c(90, 95, 99), shade=c("white", "gray", "darkgray"), refline=0)
dev.off()

包含标签字段,但示例中未生成任何标签字段.如何在漏斗图中添加标签？

看这里,似乎使用pch可能是另一种选择.有点像:

pch=paste(StudyName, StudyMeasure, sep=", ")

但这只产生一个字母点..

我正在使用GridSpec绘制一个在另一个之下的两个图,两者之间没有间隙

gs = gridspec.GridSpec(3, 1)
gs.update(hspace=0., wspace=0.)
ax1 = plt.subplot(gs[0:2, 0])
ax2 = plt.subplot(gs[2, 0], sharex=ax1)

哪个工作正常.但是,我想摆脱每个子图的顶部和底部刻度标签.为此,我使用

nbins = len(ax1.get_yticklabels())
ax1.yaxis.set_major_locator(MaxNLocator(nbins=nbins, prune='both'))
nbins = len(ax2.get_yticklabels())
ax2.yaxis.set_major_locator(MaxNLocator(nbins=nbins, prune='both'))

在许多情况下工作正常.然而,在一些图中,要修剪的4个标记中的一个或多个仍然存在.我看了例如,ax1.get_ylim()并注意到,而不是例如上限10(正如它在图中所示),实际上10.000000000000002,我怀疑是它没有被修剪的原因.这是怎么发生的,我怎么能摆脱它呢？

这是一个例子:请注意,在图中,y轴被反转,没有标签被修剪,尽管它应该是.另请注意,由于某种原因,最低y标签设置为负位置,我看不到.y刻度位置显示在图中文本的轴坐标中.在下图中,10.6处的标签不应该在那里!

import matplotlib.pyplot as plt
import matplotlib.gridspec as gridspec
from matplotlib.ticker import MaxNLocator
import numpy as np

x1 = 1
y1 = 10.53839
err1 = 0.00865
x2 = 2
y2 = 9.43045
err2 = 0.00658

plt.clf()
fig = plt.figure(figsize=(6, 6))
gs = gridspec.GridSpec(3, 1)
gs.update(hspace=0., wspace=0.) …

我想从数据集创建一个带有ggplot2的箱线图,该数据集densityAGRLKA在x轴上有3个分类变量(物种,位置,位置).

以下功能:

ggplot(densityAGRLKA, aes(species, density, fill=location, alpha=position), dodge=species, position) + 
stat_boxplot(geom ='errorbar') + 
geom_boxplot() 

创造了一个情节,其中物种的分组很好,但颜色是误导.我不知道如何解决这个问题.

我需要一个具有以下属性的图:

• 数据按分组 species
• 在集团内location,
• 并在顺序的位置内top,然后bottom.

另外,如果location将它们写在属于一起的两个盒子position下面,并且在每个盒子下面,那就太棒了.或者更好的着色/阴影框然后提供一个清晰的传奇？

样本数据:

densityAGRLKA = structure(list(location = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L), .Label = …

我正在尝试将百分比标签添加到圆环图中,但在绘制明确的百分比值表示(圆形而非重叠)方面未能成功

## my data
library(ggplot2)
col <- c("white", "black", "transparent", "grey", "blue", "yellow", "green", "red", "pink", "orange", "brown")
freq <- c(101, 68, 34, 18, 14, 5, 5, 3, 2, 1, 1)
## create data frame
colour.df <- data.frame(col, freq)
colour.df

## calculate percentage 
colour.df$percentage = colour.df$freq / sum(colour.df$freq)* 100
colour.df = colour.df[rev(order(colour.df$percentage)), ]
colour.df$ymax = cumsum(colour.df$percentage)
colour.df$ymin = c(0, head(colour.df$ymax, n = -1))
colour.df

## reorder colour levels
colour.df$col <- reorder(colour.df$col,
                             new.order = c(10, 1, 9, 5, 2, 11, 4, …

我正在使用flot的折线图功能但是我在保持我的x和y轴标签重叠到图表上时遇到了一些困难.我的图表看起来像这样

理想情况下,我想将标签移动到左侧和底部,以便它们不与图形重叠.我正在构建这样的图形

$(function() {

<%
  js_data = []
  ids = []
  @user_my_objects.each do |user_my_object|
    ids.push( user_my_object.id )
    my_object_day_time_in_ms = user_my_object.my_object.day.strftime('%Q')
    js_data.push( "[#{my_object_day_time_in_ms}, #{user_my_object.time_in_ms}]" )
  end
%>
        // <%= ids %>
        var data = [<%=h js_data.join(",") %>];

        $("<div id='tooltip'></div>").css({
                position: "absolute",
                display: "none",
                border: "1px solid #fdd",
                padding: "2px",
                "background-color": "#fee",
                opacity: 0.80
        }).appendTo("body");

        $.plot("#placeholder", [data], {
                yaxis: {
                        tickFormatter: formatTime
                },
                xaxis: { mode: "time" },
                points: {
                        show: true
                },
                lines: {
                        show: true
                },
                grid: {
                      hoverable: true, …

我怎样才能删除这个情节的所有标签？或者，甚至更好，我怎样才能使它可读？

我用这个命令创建了它：

plot(hclust(distance), main="Dissimilarity = 1 - Correlation", xlab= NA, sub=NA)

我读了很多遍，实际上xlab或sub应该删除标签，但它对我不起作用！

我的情节是这样的：

问题和解决方案改编的问题:使用ggplot2以粗体突出显示各个轴标签

我想根据满足标准选择性地证明水平轴标签的合理性.所以从上面的问题和答案中借鉴我已经建立了一个例子:

require(ggplot2)
require(dplyr)
set.seed(36)
xx<-data.frame(YEAR=rep(c("X", "Y"), each=20),
           CLONE=rep(c("A", "B", "C", "D", "E"), each=4, 2),
           TREAT=rep(c("T1", "T2", "T3", "C"), 10),
           VALUE=sample(c(1:10), 40, replace=T))

# Simple plot with factors on y axis
ggplot(xx, aes(x = VALUE, y=CLONE, fill=YEAR)) + 
    geom_bar(stat="identity", position="dodge") +
    facet_wrap(~TREAT)

好的,所以我从上面的问题+答案中采用了函数来生成一个理由的向量:

# Modify to control justification
colorado2 <- function(src, boulder) {
    if (!is.factor(src)) src <- factor(src)                   
    src_levels <- levels(src)                                 
    brave <- boulder %in% src_levels                         
    if (all(brave)) {                                         
        b_pos <- purrr::map_int(boulder, ~which(.==src_levels)) 
        b_vec <- rep(0.2, length(src_levels))               
        b_vec[b_pos] <- …