在不创建新varibale的情况下更改绘图中轴的刻度

时间:2017-03-18 19:59:17

标签: r plot ggplot2

我有一个如下所示的数据集(这只是前20行和前3列数据):

class StockTable extends React.Component {
    constructor(props) {
        super(props);
        this.state = {hidden: []};
    }
    //Make the column header clicked dissapear
    handleClickTableHeaderColumn(i) {
            //**How do I get the column clicked and change the display property?**
            console.log(this);//this.state.hidden[i].event + this.state.hidden[i].name);
    }
    render () {        
        var items = [];
        for (var symbol in this.props.stocks) {
            var stock = this.props.stocks[symbol];           
            items.push(<StockRow key={stock.symbol} stock={stock} bid={this.props.bid} ask = {this.props.ask} last={this.props.last}/>);

        }            

        return (        
            <table table-head id="stocktable">
                <colgroup>
                    <col class="maroon" />                    
                </colgroup>
                <tbody> 
                <tr>                    
                    <th></th>
                    <th onClick={(i) => this.handleClickTableHeaderColumn(i)}>P/M</th> 
                    <th onClick={(i) => this.handleClickTableHeaderColumn(i)}>T</th>
                    <th onClick={(i) => this.handleClickTableHeaderColumn(i)}>K</th>  

我绘制了这个数据

row fitted  measured
1   1866    1950
2   2489    2500
3   1486    1530
4   1682    1720
5   1393    1402
6   2524    2645
7   2676    2789
8   3200    3400
9   1455    1456
10  1685    1765
11  2587    2597
12  3040    3050
13  2767    2769
14  3300    3310
15  4001    4050
16  1918    2001
17  2889    2907
18  2063    2150
19  1591    1640
20  3578    3601

并得到以下内容:

enter image description here

如您所见,轴尺度为微米,我需要轴为毫米。

如何在轴以毫米为单位绘制数据,而不创建新变量?

喜欢这个;

enter image description here

如果我想创建一个新变量,我必须改变之前写过的整个2000行代码,这不是我想去的路! :|

非常感谢:)

1 个答案:

答案 0 :(得分:1)

我使用了@bdemarest方法用于abline的情节和@IukeA方法;

plot(y=data$measured/1000,x=data$fitted/1000, ylab = expression("Measured Length (mm)"),
     xlab = expression("NIR Fitted Length (mm)"), cex.lab=1.5, cex.axis=1.5)


 a = lm(I(data$measured/1000)~I(data$fitted/1000), data=data)
    abline(a)

这是最终的情节;

enter image description here