一、孕妇建档月份频次统计

源数据样本，为某医院一段时间内的孕妇建档时间

2015-04-22 10:12:52
2014-11-21 17:16:47
2013-12-16 17:35:44
2013-12-26 16:58:46
2013-12-27 16:44:33
2013-12-27 16:45:32
2013-12-30 8:26:20
2013-12-30 9:47:27
2013-12-30 8:46:42
2013-12-30 11:00:06
2013-12-30 11:08:42

分析目的：统计每个月的孕妇建档频次，这就要提取源数据的第一列，同截取年月数据，然后做频次直方图，看孕妇建档频次有没有随月份变化的规律。

Matlab 代码：

%孕妇建档日期统计
[datestr,timestr]=textread('PregnantWomanFileTime.txt','%s%s');
f=cell2mat(datestr);
f=f(:,1:7);
f=tabulate(f);
f=sortrows(f,1);
bar(cell2mat(f(:,2)),1);
set(gca,'XTickLabel',f(:,1),'XTick',[1:length(f(:,1))]);
title( '孕妇建档时间统计' );%下面的代码是为了旋转横坐标轴标签
xtb = get(gca,'XTickLabel');% 获取横坐标轴标签句柄
xt = get(gca,'XTick');% 获取横坐标轴刻度句柄
yt = get(gca,'YTick'); % 获取纵坐标轴刻度句柄
xtextp=xt;%每个标签放置位置的横坐标
ytextp=yt(1)*ones(1,length(xt));
text(xtextp,ytextp,xtb,'HorizontalAlignment','right','VerticalAlignment','top','rotation',45,'fontsize',10); 
set(gca,'xticklabel','');% 将原有的标签隐去

最终生成效果图：

下面将对上面的 Matlab 代码进行分析。

1、读取 txt 中的日期时间数据

如果 txt 中是两列数值，譬如「1981 1986 」，那只需要用 M = load('shuzhi.txt') 就可读取进 M 矩阵中，如下图所示。

>> M = load('CoupleBirth.txt');
>> M(1:4,:)
ans =
        1981        1986
        1988        1993
        1985        1989
        1984        1984

然后就可以用 M(:,1) 和 M(:,2) 访问这两列数据。

但本例中我们要读取的不是数值数据，而是包含日期的字符串，我们就不能再用 load 函数读取了，要用 textread 函数。因为是两列数据，就不能用 M=textread('PregnantWomanFileTime.txt','%s'); 来读取了，如果硬要这样读，那日期和时间就会在返回的元胞数组 M 中混到一块，如下所示：

>> M=textread('PregnantWomanFileTime.txt','%s');
>> M(1:4)
ans = 
    '2015-04-22'
    '10:12:52'
    '2014-11-21'
    '17:16:47'

为了把两列数据分别读进两个元胞数组，要使用：

>> [datestr,timestr]=textread('PregnantWomanFileTime.txt','%s%s');
>> datestr(1:4)
ans = 
    '2015-04-22'
    '2014-11-21'
    '2013-12-16'
    '2013-12-26'

textread 函数返回的是装满数据的元胞数组，datestr 和 timestr 都是元胞数组。

元胞数组是MATLAB的一种特殊数据类型，可以将元胞数组看做一种无所不包的通用矩阵。通过小括号()里面加下标，访问cell数组中的数据，返回的是对应的cell。通过大括号{}里面加下标，访问cell数组中的数据，返回的是对应cell的内容。

>> [datestr,timestr]=textread('PregnantWomanFileTime.txt','%s%s');
>> datestr(1)
ans = 
    '2015-04-22'
>> class(datestr(1))
ans =
>> datestr{1}
ans =
2015-04-22
>> class(datestr{1})
ans =
2、从 2015-04-22 中提取出 2015-04 来
可以用正则表达式，但我们这里使用矩阵的方法，正则表达式的方法我们后面介绍。目前 datestr 还是 cell 元胞数组，我们先把元胞数组转成 char 矩阵，使用 cell2mat 函数。
>> [datestr,timestr]=textread('PregnantWomanFileTime.txt','%s%s');
>> class(datestr)
ans =
>> f=cell2mat(datestr);
>> class(f)
ans =
>> f(1:4,:)
ans =
2015-04-22
2014-11-21
2013-12-16
2013-12-26
然后对 char 矩阵提取所需字符即可。
>> f=f(:,1:7);
>> f(1:4,:)
ans =
2015-04
2014-11
2013-12
2013-12
3、统计月份的频次
如果 f 是一维数值矩阵，那只需要使用 hist 函数就可以了，但因为这里要统计的是日期字符的频次，hist 就不能用了。
>> hist(f)
??? Error using ==> hist
Input arguments must be numeric.
还好 Matlab 提供了另一个类似的频数统计函数 tabulate。
>> f=tabulate(f);
    '2015-04'    [1386]    [6.4706]
    '2014-11'    [ 582]    [2.7171]
    '2013-12'    [  84]    [0.3922]
    '2014-01'    [ 766]    [3.5761]
    '2014-09'    [ 587]    [2.7404]
    '2014-02'    [ 616]    [2.8758]
    ……
使用 sortrows 函数对根据第一列元素对 f 排序。
>> f=sortrows(f,1);
    '2013-12'    [  84]    [0.3922]
    '2014-01'    [ 766]    [3.5761]
    '2014-02'    [ 616]    [2.8758]
    '2014-03'    [1000]    [4.6685]
    '2014-04'    [ 977]    [4.5612]
    '2014-05'    [ 948]    [4.4258]
    '2014-06'    [ 961]    [4.4865]
4、绘直方图
绘图就很简单了，bar 函数就可以。首先我们要 f 转成一维矩阵，因为上面 tabulate 返回的是元胞数组。转成行矩阵、列矩阵均可。然后再调用 bar 绘制 f 第二列的数据图，并使用 f 的第一列设置 x 轴标签，再加上 Title。
>> bar(cell2mat(f(:,2)),1);
>> set(gca,'XTickLabel',f(:,1),'XTick',[1:length(f(:,1))]);
>> title( '孕妇建档时间统计' );%下面的代码是为了旋转横坐标轴标签
本来到这里绘图可以算完成了，但是，看看 x 轴标签拥挤得，完全没法看，所以需要对 x 轴标签的显示进行下调整。需要旋转 x 轴标签了，才发现强大的 Matlab 实现这个功能竟然这么麻烦，需要通过下一小节来说明。
5、旋转 x 轴标签
 下面是旋转 x 轴标签的代码，当时找这段代码比较烦恼，因为实在不能相信 Matlab 旋转个标签都这么麻烦。其实这段代码也很简单，就是获取 x 轴标签句柄，并设置到相应的位置，然后将原有标签隐去。xt 和 yt 不重要，只是用了下 xt 的长度和 yt(1) 的 0 值。xtb 是标签内容，xtextp 和 ytextp 是标签位置坐标。text 函数可查阅相关手册了解。
xtb = get(gca,'XTickLabel');% 获取横坐标轴标签句柄
xt = get(gca,'XTick');% 获取横坐标轴刻度句柄
yt = get(gca,'YTick'); % 获取纵坐标轴刻度句柄
xtextp=xt;%每个标签放置位置的横坐标
ytextp=yt(1)*ones(1,length(xt));
text(xtextp,ytextp,xtb,'HorizontalAlignment','right','VerticalAlignment','top','rotation',45,'fontsize',10); 
set(gca,'xticklabel','');% 将原有的标签隐去
最终图形显示如第一张图所示。
二、孕妇建档某一月频次统计
上面的例子选取的第一列的所有数据，只是提取了每个数据的年月。现在要统计某一个月份的数据，就要对数据进行过滤。这里我们使用正则表达式进行过滤，代码如下。绘图代码跟上面一样。
%孕妇建档时间一个月内
[datestr,timestr]=textread('PregnantWomanFileTime.txt','%s%s');
k=regexp(datestr,'^2015-07.*$', 'match');
ix=~cellfun('isempty',k);
index=find(ix~=0);
f=datestr(index);
f=tabulate(f);
f=sortrows(f,1);
bar(cell2mat(f(:,2)),1);
set(gca,'XTickLabel',f(:,1),'XTick',[1:length(f(:,1))]);
title( '孕妇建档时间一个月内' );%下面的代码是为了旋转横坐标轴标签
xtb = get(gca,'XTickLabel');% 获取横坐标轴标签句柄
xt = get(gca,'XTick');% 获取横坐标轴刻度句柄
yt = get(gca,'YTick'); % 获取纵坐标轴刻度句柄
xtextp=xt;%每个标签放置位置的横坐标
ytextp=yt(1)*ones(1,length(xt));
text(xtextp,ytextp,xtb,'HorizontalAlignment','right','VerticalAlignment','top','rotation',45,'fontsize',10); 
set(gca,'xticklabel','');% 将原有的标签隐去
生成的图形如下：
下面对上面使用正则表达式的代码进行解析。
k=regexp(datestr,'^2015-07.*$', 'match');
regexp 查找每个元素中匹配字符的位置并返回，k 的值截取如下：
    {1x1 cell}
    {1x1 cell}
    {1x1 cell}
    {1x1 cell}
    {1x1 cell}
代码 ix=~cellfun('isempty',k)  是判断元胞数组中的元素是否为空，ix 的值截取如下：
index=find(ix~=0) 是找到上面元胞数组中不为空的元素坐标，这是根据正则表达式提取数据很重要的一步，很有技巧。index 的值截取如下：
>> index=find(ix~=0);
>> index
index =
       11269
       11287
       11597
       11672
       11695
下面就需要根据上面的 index 提取相应的数据了。会者不难，难者不会。
>> f=datestr(index);
    '2015-07-07'
    '2015-07-09'
    '2015-07-15'
    '2015-07-06'
绘图功能跟上面一样。
三、孕妇建档时间一天内统计
对一天内的孕妇建档频次进行统计。
[datestr,timestr]=textread('PregnantWomanFileTime.txt','%s%s');
f=regexprep(timestr,':\d+:\d+$','');
f=str2num(char(f));%这个代码可是几经坎坷
hist(f);
title( '孕妇建档时间一天内频次统计' );
生成图形如下：
代码解析如下：
f=regexprep(timestr,':\d+:\d+$','') 是把时间列的分和秒都去掉，返回的就是小时。原理是用 regexprep 把时间的分秒都替换成空，剩下的就是小时。
>> f=regexprep(timestr,':\d+:\d+$','');
>> f(1:4)
ans = 
    '10'
    '17'
    '17'
    '16'
下面就是要想办法把 f 中表示小时的字符转换成数值类型，因为如果跟上面一样用 tabulate 进行统计，并使用 sortrows 排序时，出发生把 8 排在 12 后面的情况，而这里正好又都是数值类型，我们何不直接转换成数值，然后用 hist 呢？
>> [datestr,timestr]=textread('PregnantWomanFileTime.txt','%s%s');
f=regexprep(timestr,':\d+:\d+$','');
>> f(1:4)
ans = 
    '10'
    '17'
    '17'
    '16'
>> f=str2num(char(f));%这个代码可是几经坎坷
>> f(1:4)
ans =
其中 f=str2num(char(f)) 这个代码找得我好苦。因为起初我想到用 cell2mat 把元胞数组内的字符转换成数值，结果是这样的。
>> [datestr,timestr]=textread('PregnantWomanFileTime.txt','%s%s');
f=regexprep(timestr,':\d+:\d+$','');
>> f(1:4)
ans = 
    '10'
    '17'
    '17'
    '16'
>> abc=cell2mat(f)
??? Error using ==> cat
CAT arguments dimensions are not consistent.
Error in ==> cell2mat at 95
    m = cat(1,m{:});
>> abc=cell2mat(f')
abc =
10171716161689811……
无力吐槽……
后来终于找到正确的转换方式：f=str2num(char(f))
后面的绘图，直接用 hist，就没什么难度了。